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O professor ideal ideal dos iniciantes, 
para os iniciantes desenvolve as primeiras 
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curtir os mais divertidos jogos 
de vídeo-game. 
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A Feira Internacional de Informática 85 cumpriu sua missão. Revelou para 
a sociedade todas as opções e tendências tecnológicas para o mercado, 
demonstrando as soluções e funções possíveis e viáveis que a 
informática pode possibilitar para todas as 
atividades profissionais, educacionais, domésticas e de lazer. 

Mais do que isso, demonstrou o amadurecimento tecnológico e científico 
no desenvolvimento industrial e o da própria comunidade usuária. 

Porém, o futuro da informática no Brasil vai além do simples sucesso 
institucional ou comercial alcançado neste evento. Hoje, mais do que 
nunca, são fundamentais a compreensão da importância da soberania da 
política de defesa dos valores nacionais e o justo apoio às universidades 
e instituições de pesquisas — pois este é o caminho para o efetivo 
desenvolvimento da tecnologia nacional. 

Mais uma vez, o grupo Prológica assume a vanguarda desse setor, 
abrindo espaço para a pesquisa e solidificando a relação 
indústria/universidade, com o convênio Prológica/Uníversidade de São 
Paulo para o desenvolvimento de supermicros — apostando no trabalho 
dos pesquisadores das universidades e no futuro da informática no Brasil. 


Carlos Roberto A. Gauch 




Agenda {cursos e eventos) .. 2 

Cartas.*.3 

CLUBE CP*$ .. 14 

Mundo da Informática ....... 12 e 13 

Dicas ...... 8 

Livros . 16 


Prova dos Noves, para conferir listagens 
em Basic no CP 400 Color .... 9 c 10 


A Feira Internacional de Infor- 
mática 85 cumpriu sua missão, 
revelando para a sociedade to¬ 
das as opções cs tendências <lo 
mercado de informática. Nas 
páginas 4,5,6 c 7 as principais 
estrelas do stand da Prologica. 


Freeway — Mais um acessório para a 

linha CP... 15 

CP 400 Color, uma paixão que virou 
clube ....; # , 11 


No Encarte Especial de Programas* um 
Calendário Personalizado para os usuá¬ 
rios do CP 300 e CP 500, três progra¬ 
mas educacionais para você transfor¬ 
mar seu CP 400 Color num charmoso 
professor de francês e a últ ima parte da 
listagem em Basic do programa Trino- 
mio do 2? Grau, para o CP 200, 





















CURSOS 


VM Consultoria de Sistemas — 
Oferece os seguintes cursos: Basic; 
dBase II; Lotus 1,2 c 3; Supercalc 
III, Wordstar e Basic Infantil, Mais 
informações: em São Paulo, tel.: 
(011) 66.9233/825.2708; no Rio de 
Janeiro, tcL: (021} 239,1345. 
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Sen ac Informática — Oferece men- 
salmente cursos de programação e 
operação de computador para em¬ 
presários, executivos* profissionais 
liberais, secretárias, redatores e jorna¬ 
listas, administradores, economistas, 
estatísticos e contabilistas, estudantes 
e profissionais de todas as áreas. 
Mais informações podem ser obtidas 
pelo telefone (011) 256.5522, ramal 
460. O Sen ac Informática fica na 
Rua Dr. Vila Nova, 288 — 5? andar 
— São Paulo — SP. 


Banco cie Dados — Metodologia cie 
Projeto de Sistema em Banco de Da¬ 
dos — Data: 9e 10 de dezembro. Lo¬ 
cal: Intertcc — Av, Paulista, 2439 

— 9? andar — São Paulo — SP — 
te!.: (011) 259.2055, ramal 319, 

Gráficos — Aplicações Comerciais 
c Administrativas — Data: 5 de de¬ 
zembro. Local: Intertcc — Âv. Pau¬ 
lista, 2439 — 9? andar — São Pau¬ 
lo — SP — tel.; (0i 1) 259.2055, ra¬ 
mal 319, 

Projacs 1 — Básico Sistema de Con¬ 
trole e Análise de Projeto — Data: 
2 a 4 de dezembro. Local: íntertec 

— Àv. Paulista, 2439 — 9? andar 

— São Paulo — SP — teL: (011) 
2594055, ramal 319. 
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dBase II — Datas: 9 a 13 de dezem¬ 
bro; 16 a 20 de dezembro; 6 a 10 de 
janeiro; 13 a 17 de janeiro; 27 a 31 
de janeiro; 3 a 7 de fevereiro; 17 a 
21 de fevereiro e 24 a 27 de feverei¬ 
ro, Local: Datalógica — Av. Pau¬ 
lista, 2028 — 16? andar — São 
Paulo — SP — tel.: (011) 283,0355. 

dBase III — Datas; 2 a 6 de dezem¬ 
bro; 16 a 20 de dezembro; 13 a 17 




programai 


cle janeiro; 20 a 25 de janeiro; 27 a 
31 de janeiro; 3 a 7 de fevereiro; 
17 a 21 de fevereiro; 24 a 28 de fe¬ 
vereiro, Local: Datalógica — Av, 
Paulista — 2028 — 16? andar — 
São Paulo — SP — tel.; (011) 
283,0355. 

Framework — Datas: 2 a 6 de de¬ 
zembro; 6 a 10 de janeiro; 3 a 7 de 
fevereiro. Local: Datalógica — Av. 
Paulista, 2028 — 16? andar — São 
Paulo — SP — tel.: (011) 283.0355. 

São Paulo Computer Instituto — 
Oferece os seguintes cursos para o 
mês de dezembro: Introdução à Mi- 
croinformática; dias 2 e 3, das 8:30 
às 17:30. Preço 35 ORTN f s. Intro¬ 
dução ao dBase II (intensivo): dias 
12 e 13, das 8:30 às 17:30. Preço: 
35 ORTN's. Programando em dBa¬ 
se II; de 9 a 11, das 8:30 às !7:30. 
Preço: 50 ORTPPs. Introdução ao 
Lotus 1-2-3: dias 5 e 6, das 8:30 às 
17:30. Preço: 45 ORTbPs. Lotus 

I -2-3 Avançado: dias 13, das 8:30 às 
17:30. Preço: 25 ORTN’s, Introdu¬ 
ção ao dBase III (Intensivo): dias 2 
a 5, das 18:00 às 22:00. Preço: 40 
ORTN’s. Programando em dBase 
III (Intensivo): dias 18 e 19, das 8:30 
às 17:30, Preço: 45 ORTN’$, Intro¬ 
dução ao dBase III: de 2 a 4, das 
8:30 às 17:30. Preço: 60 ORTN T s. 
Sistema Operacional MS-DOS: dias 

II e 12. Carga horária: 16 horas. 
Preço: 45 ORTN*s. Redes Locais 
de Microcomputadores: dia 20. 
Carga horária: 20 horas. Preço: 25 
ORTNY. O Microcomputador na 
Estratégia e no Planejamento Em¬ 
presarial: dias 16 c 17, das 8:00 às 
18:00. Preço: 70 ORTNfs. Planeja¬ 
mento e Decisão Utilizando Banco 
de Dados Públicos: dia 4, das 8:00 
às 18:00, Preço: 35 ORTNV O Mi¬ 
crocomputador na Estratégia e no 
Planejamento de Marketing: dias 9 
e 10, das 8:00 às 18:00. Preço: 80 
ORTN’s. Mais informações podem 
ser obtidas pelo teL: (011) 883.0355 
ou na Avenida Rebouças, 1669 — 
São Paulo — SP. 
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Cirandão no CP 400 


No último número da revista Gera¬ 
ção Prológica conhecí o novo CP 400 
Color 11. Gostaria de saber se é possí¬ 
vel o acesso ao projeto Cirandão, da 
Embratel, através deste computador. 

Marco Aurélio Spohn — 
Giruá — RS 



Caro Marco, o CP 400 Co¬ 
lor II possibilita o acesso a qualquer 
banco de dados, inclusive o Cirandão. 
Para tanto, você precisa somente de 
um modem, telefone, software especí¬ 
fico (desenvolvido pela empresa) e ins¬ 
crição na Embratel. Boa sorte! 


POKEs 


Assino a revista Geração Prológica 
e gostaria de comunicar-lhes o quanto 
estou satisfeito com ela. Possuo um 
CP 400 Color e adorei aqueles coman¬ 
dos POKEs publicados na GP 13 e a 
Planilha Eletrônica publicada na GP 
12. Gostaria de pedir a vocês que, se 
possível, publicassem um jogo de si¬ 
mulador de'vôo ou um de caratê. Su¬ 
ponho que esses programas sejam fei¬ 
tos em linguagem de máquina (tor¬ 
nando assim difícil sua publicação) e 
agradeceria se vocês me dissessem se há 
cartuchos ou fitas à venda com esses 
jogos e onde posso adquiri-los. Gos¬ 
taria de saber ainda se há algum co¬ 
mando que permita usar em alta reso¬ 
lução todas as cores juntas. Tenho cer¬ 
teza de que poderão me auxiliar. 
João RLunardelli — S. André — SP 

Caro João, na GP n? 14 publicamos 
uma série de software-houses (e respec¬ 
tivos endereços) onde você poderá en¬ 


contrar os jogos que lhe interessam. 
Quanto ao comando para alta resolu¬ 
ção no CP 400, informamos que exis¬ 
te um modo semigráfico que opera em 
oito cores, com utilização de POKEs. 
No entanto, este método é altamente 
sofisticado, exigindo uma pesquisa 
mais elaborada para sua explicação. 
Aguarde uma matéria a respeito nos 
próximos números. 


Jogos para CP 300 


Prezados senhores, tenho um com¬ 
putador CP 300 e sou assinante da re¬ 
vista Geração Prológica. Desde o 
lançamento do CP 400, esta revista 
não tem publicado aplicativos, jogos 
ou cursos para o CP 300. Isso me pre¬ 
judica, bem como a todos os usuários 
que possuem o mesmo equipamento. 
Gostaria de ter mais material para o 
CP 300 através da GP. Peço ainda que 
me orientem com relação a cursos de 
programação adequados à minha ida¬ 
de e formação escolar (7? série do 1? 
Grau). 

Daniel Alberto Vaena — 
Rio de Janeiro — RJ 

Companheiro Daniel, seu protesto 
está registrado. Mas, apesar de pouco, 
temos publicado sempre informações 
e programas compatíveis com o 
CP 300 e CP 500. Neste número, por 
exemplo, além de informações técni¬ 
cas, você tem uma listagem em Basic 
para elaborar seu próprio calendário. 
Quanto aos cursos, consulte a nossa se¬ 
ção Agenda ou o Senac Informática 
do Rio de Janeiro. 


GBASIC para CP 500 


Venho acompanhando esta revista 
desde o seu primeiro número e estou 
muito satisfeto com suas matérias e 
programas, além do espaço que vocês 
dão aos leitores. Gostaria de saber se 
a placa de alta resolução do CP 500 
necessita de algum software para ser 
utilizada. Também gostaria de saber 
como ativar o modo gráfico ponto a 
ponto da impressora P 500. 

Dennis M. Laguna — Dourados—MS 

Caro Dennis, a empresa que fabri¬ 


ca a placa de alta resolução para ser 
acoplada ao CP 500 é a PSI — Proje¬ 
to e Serviços em Informática Indústria 
e Comércio Ltda. —, que fica na Ave¬ 
nida Pavão, 346 — Indianópolis — SP 
— tel.: 533.0120 ou 533.0112. Informa¬ 
mos ainda que o sistema operacional 
é o mesmo do CP 500, porém para 
programar em AR você terá que adqui¬ 
rir o software GBasic. Quanto ao mo- 
,do gráfico ponto a ponto na 
impressora P 500, para ativá-lo você 
deverá digitar a seguinte instrução: 
LPRINT CHR$(27); CHR$(37); 
CHR$(48). Para o avanço da linha a 
instrução a ser digitada é: LPRINT 
CHRS(10) ou LPRINT CHR$(13). Pa¬ 
ra sair do modo gráfico ponto a pon¬ 
to a instrução é: LPRINT CHR$(27); 
CHR$(13). 



Cortesia I 


Os nossos agradecimentos pelo per¬ 
manente esforço na nobre missão de 
informar e o reconhecimento pela con¬ 
tribuição efetiva como instrumento e 
garantia do desenvolvimento. 

Um abraço amigo de 

Maia Farina — Assessoria 
Empresarial — São Paulo — SP 


Cortesia II 


Sou assinante da revista Geração 
Prológica e estou muito feliz em po¬ 
der fazer parte das informações pres¬ 
tadas pela GP. Espero que vocês 
continuem no pique de fazer sempre o 
melhor para nós, leitores. 

No começo eu estava meio inseguro 
com a revista, mas agora ela está sen¬ 
sacional. 

Continuem, pois tenho certeza de 
que não é só eu que está adorando a 
GP. 

Mauro Sérgio Franco da Costa — 
Campinas — SP 
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A Feira Internacional de Informáti¬ 
ca 85 foi o maior acontecimento políti¬ 
co, institucional e comercial do setor* 
Tanto que o vice-presidente Ulysses 
Guimarães, na condição dc presidente 
interino (J osc Sarney estava na ONU no 
dia da abertura da Feira), onze minis¬ 
tros, o governador do Estado de São 
Paulo, Franco Montoro, o prefeito da 
cidade, Mario Covas, e várias outras 
autoridades participaram da solenida¬ 
de de abertura do evento, O próprio se¬ 
nador Fernando Henrique Cardoso, 
presente na comitiva presidencial, ao 
comentar a importância do apoio à in¬ 
dustria nacional dc computação, lem¬ 
brou que, dos stands visitados, tinha 
notado que o único a levantar bem alto 


Carlos Roberto Gauch, vice-presidente tfa Prológica, entrega um 
CP 400 para Ulysses Guimarães, presidente interino* 


a bandeira RESERVA DE MERCADO 


tinha sido o da Prológica. "Um ato po¬ 
lítico oportuno, frente aos últimos 


aconteci mentos** (ataque do presiden¬ 
te dos Estados Unidos, Ronald Reagan, 
à política brasileira de reserva de mer¬ 
cado), afirmou o senador, 

Mas a Prológica foi além da conduta 
política, trazendo para os 480 metros 
quadrados de seu stand a comunidade 
de informática para participar dos 
avanços tecnológicos conquistados pela 
empresa em toda sua linha de compu¬ 
tadores pessoais c profissionais — a 
mais completado País, abrangendo dos 
equipamentos de uso doméstico, como 
o CP 200, aos sofisticados ló bíts, co¬ 
mo o SP-16* 


SP-16 o CP 400 Color, 
as estrelas da Feira 


Para demonstrar a eficiência do S P-16 t 
a Prológica colocou ã disposição dos vi¬ 
sitantes um super SP, cinco vezes maior 
do que o tamanho padrão, acoplado a 
um telào de 2 x 1,5 metros, fornecendo 
informações gerais sobre a Feira, sobre 
a empresa, além de demonstrações dc 
aplicativos e jogos* 

Mas se o super SP-16 foi o sucesso 
profissional da Feira, a linha de com¬ 
putadores pessoais foi a grande estrela 



A Editele 
lançou dois 
Üvros na 
Informática 
85: 

Indo Além 
com o 
CP 400 
e Dicionário 
Essencial de 
Eletrônica, 
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para os milhares cie visitantes do siand. 
Com a participação de inúmeras 
software-houses credenciadas, foram 
colocadas ã disposição dos usuários to¬ 
das as possibilidades do CP 200, CP 400 
Color II, CP 500 e a impressora P 500, 
4íJl) Color ' com seu novo tecla" 
do profissional, demonstrou sua poten¬ 
cialidade com vários softwares aplica¬ 
tivos, militáriose jogos, sendo que as 
grandes sensações foram os programas 
Color Max e Digitaliza dor, na área de 
software-houses, os acessórios e perifé- 
ricosConversor ScriaI;eComutadorde 
Saída Serial, para o CP 400 Color, e o 
TLX-500 Sistema Micro-Telex, para o 
CP 500, na área de hardware-hoitses. 




COLOR MAX, o programa 
que transforma o CP 400 
em um artista 


Color Max è um programa gráfico al- 
lamente sofisticado, com recursos en¬ 
contrados anteriormente apenas em 
equipamentos maiores e de maior custo. 
Ele permite aos usuários do CP 400 Co¬ 
lor as mesmas facilidades de urna pran¬ 
cheta de desenho, tais como traçado de 
linhas livres ou retas, círculos, elipses, 
quadrados, pintura em 60 cores e pa¬ 
drões diferentes — e tudo isso usando 
apenas o joystick- 

Mas o Color Max foi além da pran¬ 
cheta, com suas funções exclusivas de 
zoom parcial de tela, que permite o tra¬ 
balho ponto a ponto para a correção de 
erros e retoques, de spray, que produz 
efeitos de focos de luz em objetos, de 
edição parcial, que possibilita a dupli¬ 
cação de partes opcionais da tela, a edi¬ 
ção e a combinação das cores c padrões. 

Todas essas possibilidades são viáveis 
apenas com o uso do joystick, que con¬ 
trola uma pequena seta que pode andar 
por todo o vídeo na escolha das funções 
de lápis, borracha, pincel e spray, en¬ 
tre outras. O mais importante é que as 
telas são completamente independen¬ 


DIGITALIZADOR, 
o editor de imagens 


Também fez sucesso o protótipo do 
Digitalizador — um hardware, acom¬ 
panhado de um software (em fase de 


tes, podendo ser chamadas por outros 
programas e armazenadas em disco ou 
fita. Este programa foi desenvolvido c 
produzido pela Novatec Indústriae Co¬ 
mércio, do Rio de Janeiro, e está sendo 
comercializado pela Medicai Color 
Soft. 
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testes), que permite captar imagens ge¬ 
radas por uma câmara de TV ou video¬ 
cassete e transformá-las em informação 
binária para a tela de alta resolução do 
CP 400. Através desta operação, você 
pode manipular a imagem de qualquer 
forma, como impressão, transforma¬ 
ções e edições parciais ou completas, 


HARDWARE-H OUSES 


A potencialidade da 1 inha de compu- 
tadores pessoais da Prológica foi de¬ 
monstrada também com a participação 
de fabricantes de acessórios, periféricos 
e suprimentos, A Microequipamentos, 
por exemplo, apresentou toda sua linha 
de cabos, software e periféricos — es¬ 
tes últimos voltados para o CP 400 Co¬ 
lor: o Conversor Serial Paralelo, que 
converte a saída serial do computador 
ern saída paralela, e o Comutador de 
Saída Serial, que permite duplicar a saí¬ 
da serial do CP 400, para a utilização 
de dois periféricos seríaís. 


CP 500, 

o computador qun é um Lelox 


O microcomputador CP 500 foi cha¬ 
mado de “Bom Brií“ da informática 
na Feira,pois apresentou mil c uma uti¬ 
lidades através de seu poderoso hard¬ 
ware, vasta biblioteca de software c vá¬ 
rios periféricos. Agora, além de cum¬ 
prir com eficiência qualquer tarefa que 
você imaginar, ele também pode ser um 
versátil telex, através do TLX-500 Sis¬ 
tema Micro-Telex, desenvolvido pela 
Data Comércio Indústria e Representa¬ 
ções. Com este equipamento, o CP 500 
permite que você tenha um sistema de 
microcomputador operando também 
como telex com rapidez, economia e se¬ 
gurança, O TLX-500 é uma interface 
aliada a um software, que transforma 
os sinais ASC em BAUDOT e více- 
versa, fazendo com que o computador 





passe a operar na rede internacional e 
nacional de telex. 

Dentre as muitas vantagens que este 
sistema, aliado à linha de computado¬ 
res com tecnologia Prológica, oferece 
à automação de escritórios, podemos 
destacaras seguintes: fácil manuseio e 
instalação, recebimento automático de 
mensagens, conexão com a rede nacio¬ 
nal e mundial de telex, possibilidade de 
formatação e correção de textos antes 
de serem transmitidos c outros recursos 
do editor de textos, mülíSéndereça- 
mento/mala direta via telex, atendi - 
memo de chamada, ligando edesligan¬ 
do automaticamente, c processamento 
direto de dados recebidos via telex. 

Este sistema pode ser conectado ain¬ 
da às redes RENPAC, VIDEOTEXTO, 
ARUANDA, DISQUEBOLSA, CI- 


RANDÃO, ou outros bancos de dados 
em operação. 

Para Fabio Mendia, diretor de ope¬ 
rações da CP Computadores Pessoais, 
a Feira veio acelerar a informatização 
da sociedade, com o conhecimento e a 
multiplicação das soluções que possibi¬ 
litam os computadores. 
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0 stand da Prológiea apresentou toda a sua linha 
e foi um dos mais visitados na Feira. 


Color Max e 
Digitaliiador, 
os editares 
de imagem 
mais famosos 
do mundo. 


Fobio Mendia, diretor da CP Computa¬ 
dores Pessoais. 
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Se você é um programador criativo, aproveite esta dica 
para desenvolver uma série de aplicações para o seu 
CP 400, «utilizando esta simples tabela de endereços, cujo 
conteúdo Índica que tecla foi pressionada- 


Endereço 


338 

339 

340 

341 

342 

343 

344 

345 


8 ENTER 

9 CLEAR 
: BREAK 


Conteúdo 


254 253 251 247 239 223 191 


Se nenhuma tecla for pressionada, o conteúdo de todos 
os endereços será 255, Para você ter certeza de que tudo 
está certo, confira a tabela com o seguinte programa: 


to PRINT ífí 0„;:FOR X = 338 TO 345:FRINT PEEK{X);NEXT:GOTO 10 


Uma dúvida que muitos usuários do CP 400 devem ter 
refere-se ao modo como se deve proceder para ler um pro- 
gráma em linguagem de máquina, que está gravado em fi¬ 
ta cassete, e gravá-lo corretamente em disco usando o 
comando SAVEM, onde devem ser fornecidos os endere¬ 
ços de início, final e execução do programa. Para obtê- 
los, primeiramente carregue o programa gravado em fita 
com o comando CLOADM. 

A seguir, use as seguintes instruções: 


INICIO...... PRINT PEEK(487)*256+ PEEK{438) 

FINAL.. PRINT PEEK(126) è 255+PEEK(127)-1 

EXÊCUCAO...PRINT PEEK{157p256 + PEEK{158) 


Salve o programa em disco com a instrução: 
SÁVEM íl nomearq , \ início, fim, execução 
Daí em diante, basta carregar o programa do disco para 
a memória com LOADM e colocá-lo em funcionamento 
com EXEG, 

Sidnei Stiielmnnn 



Os usuários do CP 500 
que utilizam o DOS5O0 já 
devem ter encontrado difi¬ 
culdades ao pedir o diretório 
de um disco que contenha 
uma quantidade razoável de 
programas e/ou arquivos. 

A dica abaixo melhora o 
comando D IR, garantindo 
que cie mostre os arquivos 
do diretório no formato normal, mas apenas uma página 
por vez. Se houver muitos arquivos, ao completar uma tela, 
a listagem será interrompida, a mensagem “pressione 
ENTER para continuar” será emitida e o micro ficará 
aguardando que o operador informe se deseja continuar 
a listagem; e, assim, sucessivamente, até que todos os ar¬ 
quivos existentes no disco tenham sido apresentados. 

Para conseguir esse efeito, devemos executar as seguin¬ 
tes alterações no Sistema Operacional: 



PATCH '6 (ADO = 6111.FI NO = 0DG000.CHG = 202003) 

PATCH ‘6 (ADD = GIÊD^FÍND = CD8661 B7CSFE40.CHG = 3AB03FD620C8CO) 
PATCH É 6 ÍADO = G174 r FfND-2306C547AF78Cl 1 CHG = CF60CDC9OlAFC9J 


Uma outra dica que pode ser bastante útil: alteração no 
sistema operacional com relação ao modo como este acei¬ 
ta os comandos. Esta conduta permitirá que, estando em 
“DOS500 Ativo” e pressionando a tecla ENTER, o últi¬ 
mo comando DOS digitado seja repetido automaticamente. 
Esta alteração permitirá ainda que comandos DOS sejam 
digitados indiferentemente em letra maiúscula ou minús¬ 
cula. Outra vantagem é que o SO ignorará todos os co¬ 
mandos DOS que iniciem com um ponto (.), 

Apesar de parecer inútil, existe uma aplicação para este 
efeito: quando estamos criando um arquivo BUILD, ele 
é executado automaticamente pelo Sistema Operacional. 

Como um comando precedido de um ponto não é in¬ 
terpretado, a mensagem aparecerá na tela e poderá servir 
de comentário para o usuário, além do que se poderá es¬ 
crever o que se desejar, pois o Sistema Operacional não 
verifica a sintaxe do que é escrito após o ponto, 

Para se conseguir esses três efeitos, deve-se fazer a se¬ 
guinte alteração no Sistema Operacional: 


PATCH “0 (ADO - 4C01.FINO - 204E53.CHG = 4ES30D) 

PATCH ‘1 (A D D = 4E32, Fl N D = 212542112642,CHG = 1B0B773E1BCD) 
PATCH M (ADO — 4E3B, FlN D = 013F003500EDBO.CHG — 3300CD1 £202186F) 
PATCH '1 (ADO = 4E9D,F1ND = E5CS2A.CHG =■ C3BB4E) 

PATCH ‘1 (ADD = 4EA0.FI ND = 2040E548060009.CHG - 1A20917EFE613B) 
PATCH ' 1 (ADD zr4EA7.Fl ND = 014QQ0B7ED4222.CHG = 03062077231f»F5) 
PATCH ‘1 (ADD ~ 4EAE.FIND = 20403E1 EGD33G0.GH6 = Dl E17E12FE2EGA) 
PATCH -I (ADD = 4EB5 f FIND= É1222040C1E1 .CHG - 4A4EFEÜD28SF) 
PATCH M (ADD = 4E9B.FIND = 28ADC3BB4E.CHG = 11D44GE5D5) 
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PROVA DOS NOVES 

!4+>M4-|eW^ 


Uma das coisas mais importantes ao se trabalhar com o microcomputador é, 
sem dúvida, o método. Não se pode pensar em tirar o máximo proveito de uma 
ferramenta tão sofisticada, sem que se tenho um método eficiente para isso. Por 
método, entendemos todas aquelas providências que devemos tomar e etapas que 
devemos cumprir para atingir nossos objetivos, quer seja introduzindo, editando, 
conferindo ou executando um determinado programa. Nesse artigo, apresentamos 
um utilitário para agilizar a conferência das listagens, utilizando a velha e infalível 
prova dos noves. 




ntes de começar a 
exptorar os recur- 
sos de seu com¬ 
putador pessoal, 
quero fazer uma 
pergunta: como é 
que você vai saber 
se copiou t udo cer¬ 
to, sem ter que re¬ 
visar letra por le¬ 
tra todo o texto digitado? Você tem 
alguma idéia? Não? Não tem impor¬ 
tância: Paulo Addair, em seu livro 
Indo Além com o CP 400 Color, já re¬ 
solveu este problema para nós, desen¬ 
volvendo o programa PROVA DOS 
NOVES — Para Conferir Listagens. 

Certos erros de digitação são mui¬ 
to difíceis de detectar. E necessário um 
método completo para se decretar: “A 
linha 12434 está errada!” 

No caso de listagens, o programa 
PROVA DOS NOVES cumpre o seu 
papel, conferindo o trabalho do digi¬ 
tador, Na verdade, a antiga prova dos 
noves, em computação, se transforma 
em prova dos 255, que é o mesmo processo, só que apli¬ 
cando a base numérica do computador: o byte. Como em 
aritmética “humana” a base é dez e a prova é dos “no¬ 
ves”, se usarmos o valor máximo do byte, 256, a prova 
deverá ser dos 255. 

Como você deve saber, toda a informação armazenada 
no micro está representada por valores numéricos na me¬ 
mória, representados pelos bytes. Isso vaie também para 
o programa, que fica codificado numa determinada parte 
da memória destinada só para ele. Assim, se queremps ter 
a prova dos noves de um programa, basta somarmos os 
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conteúdos na memória e, toda vez que se ultrapassar 255, 
subtrairmos esse valor do resultado. No final, teremos um 
valor representativo de cada linha e de todo o programa. 


PROGRAMA 


Além de calcular e mostrar a prova de todas as linhas, 
este programa fornece a prova dos noves para cada grupo 
de dez linhas. Não há restrição quanto à complexidade das 
linhas, podendo estas terem múltiplas instruções separa¬ 
das por dois pontos, Á única restrição é quanto à nume- 
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ração das linhas, que não pode exceder a 62999, pois a 
rotina da prova começa em 63000. 

Para assegurar a exatidão de suas listagens, siga os se- 
guintes passos: 

1* Certifique-se de que o seu programa está rodando sem 
problemas. 

2. Acrescente a rotina da prova dos noves, digitando-a no 
final de cada programa. 

3. Chame a rotina corn o comando RUN 63000. 

4. Anote os valores para cada linha e/ou os valores para 
os biocos de dez linhas, como aparecem na tela. 

5. Insira no final de cada linha o valor correspondente à 
mesma. Use para isso a instrução EDIT (subeomando X), 
colocando um apóstrofo seguido do valor da prova até 
aquela linha. 

Esse procedimento não deve ser adotado em linhas com 
instruções DATA. Nesse caso, é melhor fazer o próprio 
programa realizar uma soma dos valores na instrução 
DATA e verificar ao final da leitura dos mesmos. 

Com os valores em mãos, identificam-se as linhas onde 
houve erro de digitação, corrige-se através de EDIT e 
torna-se a rodar a rotina da prova (RUN 63000). Repete- 
se este processo até não encontrar mais disparidades entre 
a listagem original e a digitada. 

Esse procedimento permite um método dc depuração 
bastante prático, principalmente quando o programa pos¬ 
suí uma listagem muito longa ou complexa. Você não pre¬ 
cisa necessariamente usá-lo, podendo até — a partir dele 
— chegar a um outro, ainda melhor! 


Rotina da Prova dos Noves 

63303 CL~PEEK(25)*25Ó+PEEK<26) 

63018 CLS:BN=BN+1:BT^0:PRINT" LI 

NHR"*"PROVA":PRINT 

63020 FOR I“1 T0 10:LN=PEEK(CL + 2 

)*256+PEEK(CL+3) 

63030 IFLI<63000 THEN PRINTLN* : N 
L-PEEK(CL)*256+FEEK(CL+1):ELSEI= 
11:GOTO 63060 

63340 FOR J=CL+2 TO NL-líIF PEEK 
(J)=58 AND PEEK<J+i>“131 THEN J* 
NL: ELSE CS=C5+PEEK(J)sIFCS>254TH 
ENC5=C5-255 

63050 NEXTJ s PRINTCS sCL^NL:BT=BT + 
CS 

63060 NEXTI:IFLN<63000THENPRINTtt 
-2. 1111 iPRINTH-2r "LINHAs" iLNfCSsPR 
INTtt-2,"" ELSE PRINTH-Er "FIM: 11 
íCSsEND 

63070 INPUT"PRESS!ONE QUALQUER T 
ECLfl";BTsGQTÜ 63010 

FIM: 215 



DEIXE O SEU CP500 
FALAR MAIS. 

NEW BASIC 

40 novas instruções 


Enriqueça o vocabuíana BASIC d a seu 
TRS (CP5GQ E compatíveis), ccm 4Q novas 
instruções deditadas a parte gráfica, qr.e 
daráo ao BASIC do seu equipamento urra 
nova dimensão. 


PREÇO 12 ORTNS 



SE V0CÈ TEM UM 


De&eiQ receber o software NEVVBA3IC 
assinalado na anuncia. 


UMAP5ÜONÃO PODE 
DEIXAR DE TER ESTE SOFTWARE 


Para os possurdores do uma impressora 
PSOQ, este sotlAjro permita explorar a sua 
çapacidado gráfica implementando uma 
teta lógica de alta resolução reconfrgura* 
vot em até 3€Ct - 360 pontos 


GRÁFICOS GERADOS PELO N£W&A$IC 
NA IMPRES-SORA P500 



DisUibuíçãodeComputadores 


□ Mediante envio de cheque nominal a DISCON 
DlST PE COMP. E SERV LTDA 
(o porte é par nossa conta n sua encomenda 
chega mais rã p ido) 

C hoque . —San to,, --- 


□ 


Mediante pagamento contra recebimento 
do software pelo reembolso poslal, 
acrescido dé despesas poslais. 


e Serviços Ltda. 

Rua Uneus. 126 C::-i — Parque Cruz Agtriar 

Rio Vormeino - CEP 40000 - 

TEL 07"! - Í4S-T??* SafrtKfor fJA 


Nome: ...... 

Endereço ..... 

Cidade . CEP. UF 






























CP 400 COLOR 

uma paixão que virou CLUBE 


ão tem sede» não 

™ tem estatuto» não 
exige jóia ou qualquer tipode mensali¬ 
dade e sequer faz publicidade. Mas au¬ 
mentou seu número de sócios para 250, 
espalhados por lodo o Brasil e unidos 
por uma paixão comum: as I 001 pos¬ 
sibilidades do micro colorido. É o Co¬ 
lor Clube, voltado para incrementar o 
prazer de “trabalhar” com um CP 40ü 
Color e que pretende contribuir com 
muitas idéias para explorarão máximo 
o potencial do equipamento. 

Pioneirismo 

Tudo começou em 1981, quando 
Francisco Corrêa da Silva, especialista 
em marketing da Xerox do Brasil, ad¬ 
quiriu um TRS 80 Color, recém-lan- 
çado nos EUA. 

“Fiquei navegando no mar de quem 
não conhecia nada de computador”, 
lembra ele t ressaltando que na época o 
termo informática sequer existia. A par¬ 
tir daí, Francisco conseguiu “colocar na 
cabeça” de um amigo a idéia de trazer 
um equipamento igual ao seu — “que 
era razoavelmente barato e até certo 
ponto revolucionário, com caracterís¬ 
ticas de computador de maior porte”. 
Juntos, trabalharam com o micro e, cm 
1982, “descobriram” outro adepto, Al- 
f redo T roncoso, em Campi nas, que es¬ 
tava num estágio idêntico cm termos de 
conhecimento sobre o Color. “Resol¬ 
vemos juntar esforços e fazer oTRS Co¬ 
lor Clube, e assim fomos conhecendo 
pessoas igual mente interessadas”, lem¬ 
bra Francisco. 


Do TRS ao CP 400 Color 

Francisco lembra que, desde aquela 
época, as atividades do clube baseavam- 
se na emissão de um boletim com infor¬ 
mações, trocas de programas, vendas de 
serviços e tudo o que dizia respeito à ex¬ 
ploração do potencial do micro. “Em 
nosso clube, engenheiros e técnicos as¬ 
sociados podem, por exemplo, aumen¬ 
tar a capacidade de memória, fazer li¬ 
gações, alterações, ás vezes por um pre¬ 
ço simbólico, às vezes até de graça. Tro¬ 
camos também programas para o mi¬ 
cro,” 

Foi a partir de 84 que o mercado se 
aqueceu. “A Prológica foi a mola pro¬ 
pulsora”, salienta Francisco. “Atéen¬ 
tão, existiam três companhias no mer¬ 
cado fabricando compatíveis com o 
TRS 80, mas não souberam aproveitar 
a vantagem de pioneiros. Com a entra¬ 
da da Prológica no mercado, uma com¬ 
panhia de peso e visão, surgiram l 001 
opções. Tanto que, dos 500 usuários 
desse tipo de micro — entre nacionais 
e importados —, passamos agora para 
30 mil.” 

Hoje, o Color Clube já possui 30% 
de seus associados com equipamento 
CP 400 Color. “Ele é versátil, tem re¬ 
solução gráfica* som* cores, música, 
oferecendo a melhor relação custo/he- 
nefício. Podemos fazer misérias com 
ele”, entusiasma-se Francisco, E acres¬ 
centa: “Se a Prológica souber ouvir os 
seus usuários* ela tem grande futuro 
com essa máquina no Brasil, que é o úni¬ 
co país* atualmente, onde existem com¬ 
patíveis Color”. 


Comunicação 

O Color Clube continua tendo sua al¬ 
ma no boletim — que passou a bimes¬ 
tral temporariamente por problemas fi¬ 
nanceiros, Mas Francisco pretende 
i rans formá-lo em uma publicação inde¬ 
pendente ou mesmo em um encarte den¬ 
tro de outra publicação, para expandir 
a comunicação, sempre de maneira in¬ 
formal. “Á maioria dos usuários caren¬ 
tes de informações está fora do Rio de 
Janeiro ou de São Paulo, e acho que 
nosso bolet im preenche essas necessida¬ 
des. Eu respondo, sem fazer nenhuma 
propaganda do Color Clube, em média, 
a 10 cartas por dia” — salienta, Fran¬ 
cisco, frisando que não recebe nada pa¬ 
ra exercer a “presidência” do clube. 
“Acho que um CP tem de ser mais pra¬ 
zer que obrigação e, na verdade, o que 
faço é coordenar 250 pessoas, não pre¬ 
sidir.” 

Os sócios desse clube informal ga¬ 
nham uma carteirinha simbólica e, pa¬ 
ra receber (se quiserem) o boletim — 
que se chama até hoje TRS 80 Color 
Clube Boletim —, pagam apenas 5 mil 
cruzeiros por exemplar. 

Além de toda a troca de informa¬ 
ções, programas, dicas de mercado, di¬ 
cas técnicas, o Color Clube também tem 
um projeto “Círandinha”, um correio 
elet fónico que fu nciona das 20 às 24 ho¬ 
ras, de 2? a 6? feira, para mensagens, 
boletins, colocação de programas dis¬ 
poníveis etc. 

O endereço para correspondência do 
TRS 80 Color Clube é Caixa Postal 295 J 
— Rio de Janeiro “ CEP: 20001 — 
A/C de Francisco Corrêa. 
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Jogo do bicho 



DEU CP 500 NA CABEÇA 



Jogo cio bicho por computador! 
Quem diria que a popular “fezinha" 
seria controlada também pela tnfor¬ 
mai ica, O jornal semanal Informáti¬ 
ca Hoje , dc São Paulo, localizou no 


Rio de Janeiro um banqueiro que 
usa computador para verificar o 
movimento de apostas em seus 287 
pontos, onde trabalham mais de 
3 mil pessoas. 


O banqueiro, entrevistado pelo vei¬ 
culo, compara o jogo a uma empresa, 
convencido de que a administração de 
parte de seus negócios fica mais efi¬ 
ciente com o computador. Tanto que 
comprou um CP 500 e utilizou dez 
programas desenvolvidos por sua se¬ 
cretária, para controlar o movimento 
de apostas nas bancas. 

“O processo de automatização da 
sociedade é incontrolável e até atinge 
redutos anesanaiscomo o jogo do bi¬ 
cho", afirma Wilson Moherdaui, edi¬ 
tor do Informática Hoje. Segundo ele, 
os banqueiros já se reuniram com pla¬ 
no de informatizar todo o processo de 
jogo, embora ainda não abram mão 
da confiabilidade dc alguns processos 
manuais. 


Sistema 700 coordena Congresso Eucarístico 


À Terra não é o centro do universo 
e a tendência mundial é a total informa¬ 
tização da Igreja. Afirmações como es¬ 
ta, ou mesmo insinuações a respeito, le¬ 
varam muita gente para a fogueira, U- 
teralmente. Mas isto, há muitos sécu¬ 
los atrás. Hoje, a Igreja emende a im¬ 
portância do desenvolvimento tecnoló¬ 
gico e científico. Tanto que o XI Con¬ 
gresso Eucarístico Nacional, realizado este ano em Apare¬ 
cida, São Paulo, foi iGtalmente coordenado por dois Siste¬ 
mas 700 e duas impressoras P 720, da Prolog! ca, e softwa¬ 
res desenvolvidos pela Data Systems Consultoria c Plane¬ 
jamento de Dados. 

As atribuições dos computadores começaram pela ela¬ 
boração da listagem dos 4 mil participantes, emissão dc cra¬ 
chás para cada um deles, distribuição do material litúrgiço 
e elaboração de listas de assinai uras para controle da adminis¬ 
tração do evento. Também coube aos computadores a fun¬ 
ção de distribuir as autoridades eclesiásticas entre 115 ho¬ 
téis, quatro conventos e várias casas de devotos, para hos¬ 
pedagem- 

Além disso, os microcomputadores possibilitaram que 
o padre Anionio da Silva—coordenador do evento —con- 
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t rolasse a presença década participan¬ 
te nas respectivas atividades, determi¬ 
nando horários, tarefas e funções espe¬ 
cíficas. 

Ferrenho defensor da informatiza¬ 
ção da Igreja, padre Antonio, que é pes¬ 
quisador de teologia administrativa e já 
trabalhou no Canadá em informatiza¬ 
ção eclesiástica, acredita mesmo que a 
tendência mundial é a total informatização da Igreja, 
Copérnico, Galileu GaJileí, Giordano Bruno e tantos ou¬ 
tros estão vingados. 

Câmara Municipal de Franca 

A Câmara Municipal de Franca, São Paulo, também 
está utilizando os serviços do microcomputador Sistema 
700, que deverá assegurar a modernização e melhor qua¬ 
lidade dos serviços legislativos, colocando a serviço da 
comunidade todos os eficientes recursos da computação. 
Segundo o presidente da Câmara, Roberto Engler, com 
este sistema o órgão terá condições de oferecer qualquer 
in forni ação, sobre qualquer lei ou assunto, instantanea¬ 
mente, agilizando assim os trabalhos públicos. 
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uma rede 
de escolas 
de 

informática 


Mais de 100 com¬ 
putadores, sendo 
que grande número 
é da linha CP da 
Prológica, classes li- 
mitadas — de forma 
a assegurar um com¬ 
putador para cada 
dois alunos —> apostilas desenvolvidas 
por uma equipe selecionada e turmas es¬ 
peciais para crianças de 9 a 12 anos, Es¬ 
tas são algumas das vantagens ofereci¬ 
das pela SOS Computadores, uma em¬ 
presa que começou há dois anos atrás 
e que hoje já conta com uma rede de no¬ 
ve escolas — em São Paulo (Pacaem- 
bu, Paraíso e Vila Carrão), Guarujá, 
Santos, São Vicente, Tatuí, Jundiaí, 
Sorocaba — e mais de 1 500 alunos. 

Trabalhando com três linguagens — 
Basic, Cobol e Assembler —, a SOS dá 
ainda cursos especiais de aplicativos, 
como o VisiCalc, um software para a 
área técnico-financeira, O curso com¬ 
pleto de Cobol tem 96 horas/aula; o de 
Assembler, 48 horas, e o de Basic é cum¬ 
prido em duas etapas: 48 horas/aula na 
primeira e 24 horas/aula na segunda. 

“Procuramos aumentar cada vez 
mais o entrosamento aluno/computa- 
dor*\ completa Luiz Carlos Izzo, um 
do sócios da SOS, “e para os que que¬ 
rem testar exercícios, criar programas 
ou simplesmente familiarizar-se mais 
ainda com o micro, críamos o Clube 
SOS. São duas horas, em dias progra¬ 
mados, em que o aluno — ou o ex-aluno 
— dispõe dos micros para seu uso ex¬ 
clusivo, gratuitamente’L 

V___ J 


SOS 


ABICOMP PREMIA PROJETOS 

O Pégasus, supermicro de 32 bits, desenvolvido pela Universida¬ 
de Federal do Rio de Janeiro, e o robô industrial projetado pelo Cen¬ 
tro de Computação Eletrônica da USP foram, respectivumente, o 
primeiro e o segundo colocados na premiação instituída pela Abi- 
comp — Associação Brasileira das Indústrias de Computadores e Pe¬ 
riféricos — para os melhores trabalhos mostrados pelas 26 instituições 
de pesquisa que participaram da 5? Feira Internacional de Infor¬ 
mática. 

As características do robô da USP permitem sua utilização na in¬ 
dústria automobilística, seja para soldagem ou para pintura, e 
colocam-no em posição de igualdade com os projetos de compra de 
tecnologia recenlemente homologados pela Secretaria Especial de In¬ 
formática. 

PROLÓGICA E USP, um convênio pioneiro 

lógica, para desenvolvimento de vá¬ 
rios projetos na área de Informática 
e Engenharia. O primeiro deles é o de 
um mieromputador de 32 bits, um su¬ 
permicro, que já está sendo desenvol¬ 
vido no Laboratório de Subsistemas 
Integráveis da Poli. 

“Esse convênio beneficia tanto a 
empresa quanto a universidade. Para 
a Prológica, o intercâmbio com os 
meios acadêmicos vai de encontro ao 
Plano Nacional de Informática, que 
incentiva a participação das universi¬ 
dades no trabalho desenvolvido pelos 
fabricantes nacionais de computado¬ 
res. Para a USP, a injeção de recur¬ 
sos permitirá o prosseguimento de um 
trabalho em tecnologia de ponta”, 
afirma Carlos Roberto Gauch, vice- 
presidente da Prológica, 



Carlos Roberto A. Guueh 


É um projeto pioneiro no Brasil: a 
Prológica e a Escola Politécnica da 
Universidade de São Paulo estão fina¬ 
lizando os detalhes para a assinatura 
de um convênio de cooperação tecno- 


Instituto de Ciência da Computação 

O Departamento de Ciências da Computação, integrado ao Insti¬ 
tuto de Matemática e Estatística da Universidade Estadual de Cam¬ 
pinas, São Paulo, será transformado em Instituto de Ciência da 
Computação. Segundo Cláudio Lucchesi, membro do Departamen¬ 
to, um projeto neste sentido já esta sendo examinado pela Reitoria 
da Unicarnp. 

Com a transformação em Instituto, será criado o curso de pós- 
graduação a nível de doutorado em Computação e ampliadas as áreas 
de pesquisas existentes, atualmente voltadas para hardware, software, 
teoria e sistemas de informação, introduzindo-se as áreas de inteli¬ 
gência artificial e processamento de imagens. 
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COM A PALAVRA, 0$ ASSOCIADOS: 



TROCA DE REVISTAS ■ 

Desejo receber, adquirir ou trocar números atrasados da 
Geração Prológíca, Preciso dos números 1, 2, 3, 5 c 6 e te¬ 
nho os números 7, 10, 11 e 12 para trocar. 

Augusto Valente Neto — Rua Mo destino Soares, 960 — 
Bairro Jóquei Clube — CEP: 64,000 — Teresina — PI 


CP 300 e CP 500 


Troco programas com usuários de CP 300 ou CP 500 na 
versão fita cassete, 

Clorivaldo Álves Campos — Avenida Gentil Tavares, 
506 — Bairro Ge túlio Vargas — teL: (079) 222-6000 
CEP: 49,000 — Aracaju — SE 


FRIENI 


Nós, do FRIENI) s COMPUTERS CLUB, estamos dis¬ 
postos a aceitar os Ieitores da excelente revísta Geração Pm- 
lógica. Também pedimos sugestões para melhorar a nossa 
associação. Endereço para correspondência: Rua Júlio de 
M. Filho, IÜ-54— Vila Universitária — CEP: 17*100 —Bau¬ 
ru — SP. 


Nota da redação: Nós, do Clube CP’s, também estamos 
dispostos a receber os FRíENITs como nossos associados. 
Bem-vindos, 
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Possuo um computador CP 400 c uma extensa relação 
de programas entre jogos, aplicativos e programas integra¬ 
dos, Gostaria, através desta revista, de criar um Clube de 
Usuários em São Paulo visando, principalmente, a troca de 
bons programas, bem como cie adquirir (rateando o custo) 
os últimos programas lançados nos Estados Unidos e de reaí 
interesse do Clube, Peço também uma relação de usuários 
de CP 400 para convidá-los a integrar o clube. 

Alberto Zagni — Rua Bartolomeu Feio, 190 — leL: 

(011) 531-5623 (residência) e (011) 270-2322 (comercial) 
CEP: 04580 — São Paulo — SP 

Nota da redação: Seja bem-vindo ao CLUBE CP’s, Al¬ 
berto, O convite para os usuários de CP 400 está feito, mas 
não estamos autorizados a publicar listas de nomes, a não 
ser que o leitor assim o deseje. 


NOVO SÓCIO 


Sou assinante da Geração Prológíca e tenho acompanha¬ 
do com bastante interesse a seção CLUBE CP's. Como fa¬ 
ço para me associar ao referido clube? 

Paulo Aulnniü Cunha Martins — Rua MoL Rondon, 
2094 — CEP: 79,100 — Campo Grande — MS 

Nota da redação: Companheiro Paulo, temos a honra 
de informar-lhe que você já é um membro do CLUBE CP’s, 
Nosso clube é um espaço conquistado pelos usuários da li¬ 
nha dc computadores pessoais da Prológíca e tem como fi¬ 
losofia a democratização das informações. Essa democra¬ 
tização pode ser praticada com todos: com a revista, com 
o fabricante e com os outros usuários de microcomputado¬ 
res, Por isso publicamos seu endereço para troca de infor¬ 
mações, Escreva sempre. 
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A eficiência na automação em escri¬ 
tórios tem várias possibilidades, depen¬ 
dendo das necessidades e da adequação 
dos equipamentos, além da relação 
custo/benefício* Os acessórios e peri¬ 
féricos cumprem, nestas ocasiões, o 
papel viabilizador de perspectivas pro¬ 
dutivas através da computação, au¬ 
mentando o rendimento dos micro¬ 
computadores. 

Este é o caso do mais novo produto 
que a PS1 — Projetos e Serviços em 
Informática — está colocando no mer¬ 
cado de periféricosr o Freeway, um 
Data Buffer inteligente que atua como 
interface entre um microcomputador 
c uma impressora, armazenando infor¬ 
mações em alta velocidade e liberan¬ 
do imediatamente o micro para outras 
atividades. Além de permitir a otimi¬ 
zação do uso do microcomputador 
(que não irá mais perder tempo con¬ 
trolando a impressão de relatórios), o 
Freeway possui memória real de 64 Kb 
(ou 65 536 toques), expansível até 
512 Kb. Porém, essa memória pode 
operar com mais do que o dobro de 
sua capacidade real ou adquirida, já 
que trabalha com armazenamento em 
modo comprimido. 

Características técnicas 
e compatibilidade 
com os CPs 

Totalmente compatível com a linha 
de computadores pessoais da Prológi- 
ca, o Freeway agiliza e aperfeiçoa as 
relações micro-impressora, apresentan¬ 


do características inéditas para o mer¬ 
cado nacional: oferece estatísticas de 
impressão, permite avanço de páginas, 
controla a troca de papel avulso, fil¬ 
tra Une feed automático, permite inser¬ 
ção de impressões rápidas em meio a 
grandes relatórios, executa autotestes 
e outras funções que o caracterizam 
como uma interface inteligente. 

Além de apresentar essas caracte¬ 
rísticas, este Data Buffer permite tam¬ 
bém a impressão de gráficos, converte 
modos de comunicação paralela em se¬ 
rial, ou vice-versa, aumenta as distân¬ 
cias entre os dispositivos sem a neces¬ 
sidade de modem, libera rapidamente 
linhas telefônicas usadas em transmis¬ 
sões de listagens a grande distância e 
pode ser ligado a terminais de vídeos. 

Apesar de todas essas funções, o 
Freeway apresenta-se cm gabinete le¬ 
ve c de dimensões reduzidas, pois foi 
desenvolvido com circuitos integrados 
de alta densidade, 

Para o engenheiro Luiz Carlos Pal- 
miro, diretor de marketing da PS1, a 
principal vantagem do Freeway é que 
ele proporciona um melhor rendimen¬ 
to de todo o sistema montado a partir 
de um microcomputador: M Um micro 


que demore 30 minutos comandando 
uma impressão poderá realizar essa ta¬ 
refa em apenas 40 segundos se auxilia¬ 
do pelo Freeway, otimizando assim a 
relação custo/benefício do sistema 11 . 

Alta resolução gráfica 
para o CP 500 

A PSI também desenvolveu a placa 
PSI-GRÀF, que transforma o CP 500 
normal em um poderoso microcom¬ 
putador com alta resolução gráfica 
(512 x 192 pontos) e amplia o vídeo de 
texto para 80 ou 85 colunas. 

Acompanha a PSI-GRÁF um dis¬ 
quete ou uma fita cassete contendo o 
software básico de operação, incluin¬ 
do uma versão do interpretador Basic 
com extensões especiais para as carac¬ 
terísticas da placa. 

Além da PSI-GRAF, a empresa de¬ 
senvolveu vários outros periféricos 
compatíveis com a linha de computa¬ 
dores pessoais da Prológica: a PSI-300 
IP, interface que permite a ligação de 
urna impressora paralela no CP 300 e 
a PSI-MC, que permite conectar e con¬ 
trolar vários aparelhos através de um 
CP 200 ou CP 300 ou CP 500, Na 
área de software, a empresa coloca à 
disposição do mercado o SCE — Sis¬ 
tema de Controle de Estoque. Mas, 
Luiz Carlos Palmiro garante que a PSI 
não pára por aí: nos próximos meses 
estará disponível no mercado o novo 
produto da empresa, um Controlador 
Inteligente para Processos Industriais, 
também compatível com a linha CP. 
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ittdo Mèm com o CP 400 Color, de Paulo Addair, 144 
páginas, 16 x 23 em, Editele — Editora Técnica Eletrônica. 


Sempre que se fala cm literatura para computadores pes¬ 
soais, pensa-se logo em cursos de programação, quase sem¬ 
pre Basic, ou então em coletâneas de programas do tipo 


“Agenda Telefônica”, “Orçamento Doméstico’* ou, ain¬ 
da, nos invariáveis jogos “Labirinto” e similares. Raros 
são os livros que se preocupam em explorar melhor os re¬ 
cursos do equipamento. A preocupação geral é aplicar 
aqueles que são apresentados no próprio manual, através 
de cursos básicos ou então de programas já prontos. 

Os poucos livros que abordam recursos inéditos, quer 
seja revelando detalhes de hardware ou relacionando os 
PEEKs e FOKEs mais importantes do equipamento, in¬ 
variavelmente são escritos de forma sintética, visando so¬ 
bretudo o programador experiente, que não exige maio¬ 
res explicações ou exemplos elaborados de utilização do 
recurso apresentado. 

Fugindo um pouco desses lugares-comuns, que carac¬ 
terizam o mercado de livros nacionais, a EDITELE lan¬ 
çou na V Feira de Informática, em setembro último, um 
livro destinado ao programador iniciante que aborda re¬ 
cursos inéditos do CP 400 Color, A intenção dessa obra 
é que “o leitor vá percebendo, gradualmeme, as reaís di¬ 
mensões da ferramenta que possui, numa tentativa de do¬ 
minar essa tecnologia”. 

Os recursos mostrados no livro estão divididos em cin¬ 
co áreas distintas: de programação, de vídeo, de fita cas¬ 
sete, dc disco e os recursos avançados. 

Entre os vários recursos, podemos destacar uma rotina 
capaz de unir programas previameme gravados em fita, 
coisa que normalmente só é possível com programas ern 
disco. Outro programa interessante é o editor gráfico, ca¬ 
paz da incrível façanha de gerar um programa que recria 
o gráfico editado, ao invés de copiar simplesmente as pá¬ 
ginas dc vídeo em fita ou disco. Além desses, mais deze¬ 
nove programas do mesmo nível completam essa bem 
cuidada obra que, evideniememe, não esgota o assumo, 
mas dá uma boa noção do que se pode fazer com o micro 
e um exemplo do que se pode fazer pelo usuário. 
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Dicionário Essencial de Eletrônica, pesquisas: Juliano Bar- 
sali e Julio Amâncio de Souza, 80 páginas, 11,5 x 15,5 cm, 
Editele — Editora Técnica Eletrônica. 


Esse dicionário surgiu da necessidade de se ter uma fonte 
de consulta rápida « atualizada sobre uma infinidade de 
termos ligados à informática, microeletrônica, telecomu¬ 
nicações e diversos outros setores da eletrônica, como uma 
alternativa aos grandes dicionários — volumosos e com 
temas muito dispersos. Reduzindo o número de assuntos 
aos mais importantes, foi possível produzir um livro de 
bolso bastante prático e compacto, contendo cerca de 1000 
verbetes. Pela forma como foi elaborado, esse dicionário 
é util a profissionais de eletrônica, leigos e estudantes, co¬ 
mo fonte constante de novas informações e complemen- 
tação da Série Biblioteca Nova Eletrônica. 
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1600m 2 para lhe proporcionar o melhor atendimento. 


ATENDIMENTO 

PERSONALIZADO: 

Equipes especializadas para 
orientá-lo ou demonstrar 
equipamentos em todo o 
território nacional. 



ASSISTÊNCIA 

TÉCNICA: 

Profissionais allamenie 
qualificados, 
aptos a atender 
qualquer tipo de necessidade. 




TREINAMENTO 
E CURSOS: 

Mantemos cursos e treinamento 
de operação gratuitos, 
inc fu indo aulas práticas 
e material didático. 



SUPRIMENTOS 

PARACPD: 

Diskettes, formulários, li las 
para impressoras etc... 
á pronta entrega. 



INSTRUMENTOS: 

Equipamentos de teste o medição 
para as diversas áreas 
da Eletrónica e Informática. 



AJUDANDO A DESENVOLVER TECNOLOGIA Ej 

Ruâ Aurora, 165 - SP - Tel.: PBX {01 U 223 73Ô6 - Tslax 1011) 31206 Dir*to - SP -223-1446/ % 

222-3458/220-91T 3/220-7954 Dirato outro* Eumíoí: 222-5430/221 0326/223-7649/222-0284 

























CP500/Mf a grande solução. 
Garantia da maior biblioteca 

■ mci nj a 


O CP 500/M® 0 agora também e compatí¬ 
vel com GP/M, o Sistema Operacional 
mais difundido no mundo. Isso significa 
que, somando o tradicional DOS 500 
com o CP/M, você passa a dispor da maior 
biblioteca dc programas aplicativos do 
mercado. Trata-se da soíuçào inteligente 
e racional para o seu dia-a-dia, permitindo 
a você tirar vantagem de programas como 


CaleStar*, dBase II *, Wordstar* e muitos 
outros, que váo agilizar tanto a sua vida 
quanto a da sua empresa: Folha de 
Pagamento, Controle dê Estoque, Contas a 
t 3 aga r / Receber t * Admini st raç ào Hosp it a la r, 
Cálculo Estrutural, Sistema de Balancea¬ 
mento de Rações e outros programas especí¬ 
ficos para o seu ramo dc atividade. 

O CP 500/M? 0 possui saída paralela para 


impressora, e você pode instalar facilmente 
uma porta RS232-C, que o coloca em 
contato com a Rede Internacional de 
Telemática, além do Videotexto, Cirandào* 
Aruanda etc. Conheça no seu revendedor 
mais próximo o CP 500/M 80 . 

Um grande passo na informática, com a 
qualidade CP e a Tecnologia Prológica. 


Caracter btkas 

Sistema Operacional 

Vídeo 12" fósforo vçrdç com eontroÈç dc 

Intensidade 

Teclado profissional eapúciiivú com numérico 
reduzido 

Interface pata IznjXESSon paralela 

Interface serial padrão R5232-C (opcional | 

Frequência de Operação: 2 Mhz 

Unidade de som m rii «m [ r ole de volu me 

Opera Cóm 1 ou 2 drives de face simples ou dupla 


SO-Ü8 

DOS 500 

Memória RAM 

Memória ROM 
Compatibilidade 

Video 

W Kbytes 

2 Kbytes 
CP/M* 

SO colunai por 

24 tinhas 

4& Kbytes 

J 6 Kbytes 

TRS DOS 

64 ou 3Í colunas 
por 16 linhas 



COUFVIADORtS PES&MlS 


TECNOLOGIA 
PROLOG4GA iií 

■ ■ 

























































































ESTE SUPLEMENTO E PARTE INTEGRANTE DA REVISTA GERAÇÃO PROLÓGICA N,° 15. NÃO PODE SER VENDIDO SEPARADAMENTE 



^OGICA 


ÍNDICE_ 

I. CALENDÁRIO PERSONALIZADO 

Programa desenvolvido para o CP 500 ou CP 3Ü0, que 
permite a elaboração de calendários personalizados ... 2 e 3 


2. TRANSFORME SEU Cl 1 400 COLOR NUM CHAR¬ 
MOSO PROFESSOR DE FRANCÊS 

Três programas educacionais que permitem o aprendiza¬ 
do da língua francesa. O primeiro programa é baseado 
no jogo da forca; o segundo, na conjugação de verbos 
e o terceiro, no aprendizado de palavras através dc 
antônimos ... .. .. ..... 3, 4, 5, 6, 7 o 8 


3, TR1NÔMIO DO 2? GRAU 

Continuação da listagem em Basic do programa educa¬ 
cional desenvolvido para o CP 200.. 8 











APLICATIVO 

Calendário Personalizado 

CP 500 ou CP 300 - 48 Kb RAM 


1986 está chegando... Não está na 
hora de um novo calendário? Então, 
não perca tempo: faça você mesmo, o 
seu calendário personalizado e sur¬ 
preenda seus amigos com um presente 
originai* pois,com este programa vocc 


poderá utilizar estéticas diferentes e 
qualquer tipo de formulário. 

De fácil operação, pois todos os co¬ 
mandos e opções aparecem na tela do 
computador, este programa possibili¬ 
ta a elaboração de calendários eternos, 


com opções para ajustes de espaços en¬ 
tre os dias e meses, dependendo do ca¬ 
ractere escolhido. Digite corretamente 
a listagem em Basic e, nas opções, per¬ 
sonalize seu calendário com a estética 
que escolher. Agora é só imprimir na 
sua P 500 e feliz Ano-Novo! 


10 ' #*#*#**#*#***HHt ******##*#### 


20 '* CRLENDRRID * 

30 '* CP-COMPUT * PESSQRIS * 
-40 '* CP-SOO * 

^O 1 ** 11111111111111 1«| jr j Qu ti ii ti ti ii M ü ii ^ 


60 '*******-*#■#*#**-#■******#***##* 

70 CLERR16000 
SO CLS 

90 DIM L$<60>,M$Í12),D$<7>,DI(10), 
DSU2):F0R 1=0 TG 60 :L$ (I) =STRING$ 
(230,32):NEXT I:FDR 1=1 TG 12:RERD 
M$ (I) : NEXT ÜFOR 1 = 1 TO 7 :RERD D$ 
(I)SNEXT I!FOR 1=1 TO 10:Dl(I)=1:N 
EXT I:RERD DF$ 

100 DEF FNM$(X$,X)=STRING$(INT<<X- 
LEN(X$) >/2 >,65)+X*+STRING*(~INT(-( 
X-LEN(X$))/2),65) 

110 PRINT"DESEJR CARACTERES EXPRND 
IDOS NR TELR (S/N)";:INPUT H$ 

120 IF H$="N“ THEN CLSüGQTQ 160 : 

IF H$<>"S" THEN GOTO 110 
130 CLSSPRINT CHR*<23) 

160 INPUT "RND R IMPRIMIR ";RND:PR 
INT 

150 PRINT "QTRS CCLUNRS DE MESES(2 
-3-6-6):"; 

160 R$ = INKEY$; IF R$= ,M ‘ THEN GOTO 1 
60 ELSE IF INSTR("2366",R$><1 THE 
N GOTO 160 ELSE PRINT R$.'NML=VRL< 
R*>:PRINT 

170 PRINT "QUAL 0 ESPAÇO R/ UM DIR 
<2 fl 5):" i 

ISO R$=INKEY$:IF R*= M, ‘ THEN GOTO 1 
30 ELSE IF INSTR("2365",A$){1 THE 
N GOTO ISO ELSE PRINT A$:E=0RL(R$ 
)í PRINT 

190 PRINT "QURL R DISTRNCIR EM CRR 
RCTERES ENTRE OS DIRS (1 R 5):"; 
200 fl$ = INKEY$: IF 0$="" THEN GOTO 2 
00 ELSE IF INSTR("12365",R$)< 1 TH 
EN GOTO 200 ELSE PRINT R$:F=VRL(R 
$)!PRINT 


210 PRINT "QURL R DISTRNCIR EM CRR 
RCTERES ENTRE OS MESES (1 R 9):"; 
220 fi$=INKEY$:IF R$="" THEN GOTO 2 
20 ELSE IF INSTR("123656739",R*>< 
1 THEN GOTO 220 ELSE PRINT R$:D=V 
RL (R$ ) -'PRINT 

230 C=7*E+6*F+D:M$="3i2S3130313031 
3130313031":IF RN0/6=INTCRNO/6) TH 
EN MID$(M$,6)="9" 

260 DS(1)=(RNO-1)*365+INT((ANO-1)/ 
6):DS <1)=DS í1)-INT(DS(1)/7)+7+1 
250 FOR 1=2 TO 12:DS(I)=DS(I-i>+VR 
L(MID$(M$,2*I-3,2))-1:DS<I)=D5<I)- 
INT(DS(I)/7)*7+1:NEXT I 
260 MIDÍ(L$(0),C*NML/2-3)="*"+STR$ 
(RNO)+" *" 

270 FOR 1=1 TO 12 STEP NML 
2S0 F0RJ=0TQNML-1:MES=J+I:L=(I-i)* 
iO/NML+2:MID$(L$(L),J*C+1)=FNM$(M$ 
(MES),C):L=L+1 

290 FOR S=1 TO 7:MID$(L$(L),D/2+J* 
C+l+(S-i)*(E+F))=LEFT*(D$íS),E):NE 
XT S 

300 IN=DS(MES>:DI=1:FI=7:DM=VRL(MI 
D$<M$,MES*2-i,2>) 

310 L=L+1 

320 FOR K=IN TO FI:DU=DI+K-IN:MID$ 
(L*ÍL>,D/2+J*C+l+(K-l)*ÍE+F))=STRI 
NG$(E+l-LEN(STR$(DU)),32)+RIGHTÍ(S 
TR$(DU >,LEN <STR$< DU))-1):DE$=STR$( 
DU)+"/"+STR$(MES)+"." 

330 IF INSTR(DF*,DE*)<>0 THEN MID$ 
(L$(L >,D/2+J*C+1+(K-l)*(E+F))=LEFT 
$("FERIRDO",E) 

360 NEXT K 

350 DI=DI+FI-IN+1:IN=1:IF DI-1=DM 
THEN GOTO 380 

360 IF FI+DI—1> DM THEN FI=DM-DI+1 

370 GOTO 310 

380 NEXT J:NEXT I 

390 FOR 1=0 TO 12/NML*10:LPRINT LE 
FT$ ( L$ (I) , C*NML ) : NEXT HCLSsEND 
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410 ' MESES POR EXTENSO 
420 ' 

430 DATA JANEIRO,FEVEREIRO,MARCO,A 
BRIL,MRIO,JUNHO,JULHO,AGOSTO,SETEM 
BR D,OUTUBRO,NOVEMBRO,DEZEMBRO,DOMI 
NGO,SEGUNDR,TERCR,QUARTA,QUINTA,SE 


XTA,SABADO 
440 ' 

450 ' DATAS DE FERIADO PERMANENTE 
460 ' 

470 DATA " 1/ 1. 21/ 4. 1/ 5- 6/ 6 
. 7/ 9. 12/ 10. 2/ 11. 15/ 11. 25/ 
12 . " 


EDUCACIONAL 

Transforme seu CP 400 Color 
num charmoso professor de francês 

CP 400 Color — 16 Kb RAM 


Une saison dans Penfer. 

Você sabe o que está escrito aí em 
cima 1 ? Não?!!! 

Então, está na hora de começar a 
aprender francês, a língua mais român¬ 
tica e sensual deste planeta. E também 
a mais gostosa... alguns restauranies 
têm uma comida deliciosa, mas de di¬ 
fícil pronúncia. Além disso, você po¬ 
derá ler grandes autores no original: 
Flores do Mal, de Baudeiaire; Ilumi¬ 
nações, de Rimbaud; Poemas, de Paul 
Vedfune. Quer mais? 


Então, digite os três programas que 
seguem e faça de seu CP 400 Color o 
mais charmoso professor de francês. 
Mas o mais importante é que você 
aprenderá brincando — como todo 
bom parisiense. E, quem sabe, um dia 
você estará sentado no Café du Paix, 
em Saint Germaine, lendo o Le 
Monde... 

No programa número 1, FORCA, 
você aprenderá francês com o conhe¬ 
cido jogo da forca; no número 2, li¬ 
ções sobre conjugação de verbos e, no 


número 3, você terá 20 questões sobre 
antônimos. Tudo em francês... menos 
as instruções c comandos a utilizar: o 
professor CP 400 Color mostrará tu¬ 
do no vídeo. 

Bem, se você for um bom aluno, cm 
pouco tempo poderá traduzir este poe¬ 
ma de Verlaine: 

"Aimez, aimez! Ô chères Esseulées, 
Puisqu ’en ees jours de malheur, vous 

encore, 

Le glorieux Stigmate vous decore”. 


PROGRAMA N? 1 — FORCA 


10 ' XX XX XX XX XXX XX X XXX X XX X X XX X X X X 

20 '* FORCn - FRANCÊS * 

30 '* CP-C0MPUTAD0RES PESSOAIS * 
40 '« CP-400 COLOR * 

50 'x x x x x x x x x x x x x x x- x- x x x x x x x x x x x x 

Ó0 CLS0 

70 PRINT0192+4."CP-COMPUTADORES 
PESSOAIS"í 

80 FORTI=1TO1000:NEXTTI 
90 DATA L' ABEILLE, L' ABRICOT,L'AC 
HAT,ACHETER,L' ACTEUR ,L'ADVERBE.L 
'ADDITION í L / AFFICHE *L'AGENT»L y AI 
L.AIMER»L / RLGEBRE 7 AHUSANT» L'ANNE 
E r L'ANNIVERSAIRE.APPORTER.APPROR 
CHER » L'APRES-MIDI f L'ARITHMETIQUE 
,ARRETER,L'AS5IETTE,ASSURER,ATTE 
NDREfAU-DESSUS DE,AUSSI 
100 DATAAUTANT r L * AUTOBÜS r AVANT r A 
OOIR.AVRIL.LES BAGAGES.LE BAIN.L 
A BANDE t LA BARBE 7 LE BAS t LE BATER 
U.BEAUCOUP?LE BEURRE » LA BIERE^LE 
BILLET .BOIRE í LA BOI TE,BONJOUR.L 


A BOUCHE,LE BOÜLANGER.LA BOUTEIL 
LE.LE BRAS^BROSSER.LE BRUIT.COMM 
E Cl,LE CASHIER.LE CAMION 
110 DATA LE CANARD 7 LA CARTErCPSS 
ER 7 CE QUE 7 CE SONTrLA CEINTURE t CE 
PENDANT 7 LA CHAMBRE 7 LA CHANSON r SE 
CHARGER DE r LE CHAT,AVOIR7 LA CHE 
MISE 7 CHERCHER 7LES CHEVEUX7 LA CHI 
MIE 7 LR MOUSSE AU CHOCOLAT,QUELQU 
E CHOSE * LA CIGALE,CINQUANTE7LA C 
LEF 7 LE COCHON 7 LA COLLINE 
120 DATA COMME 7 COMMENCER 7 LE COMP 
LET 7 LR CONFITURE.CONSTRUIRE 7 LE C 
ONTRAIRE 7 Lfl COPINE-LE CORPS 7 COUC 
HER 7 LE COULOIR 7 LE COUTERU 7 LA CRA 
IE 7 LA CUISINE 7 Lf4 DAMErDEBOUT 7 DEJ 
EUNER,LA DEMI-HEURE 7 LA DENT,DESC 

ENDRE7DEUX.7DEVENIR7DIFFICIL.E7LE 

DINDQN 7 LE DINER 7 LE DISQUE 
130 DATA LE DIVAN , DIX-SEPT 7 LE DO 
IGT,DORMIR 7 LE DRAP,L'ECHARPE 7 ECO 
UTER7L' , EGLISE7 ELECTRON IQUE 7 EMBRA 
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SSER-EMPRUNTER,ENERGIQUE,ENSEMBL 
E,ENTRER , L ' EPRULE,L'ESCALE,L'ESC 
RRGOT,ESSRYER,L 'ESTGMRC , L'ETRT , L 
'ETOILE, ETROIT,ETUDIER,L'EYIER,L 
'EXCURSION,LE FRCTEURfFRI 
140 DRTR LR FAMILLE-LE FRUTEUIL , 
LR FENETRE , LR FETE-LR FIEYRE,LR 
FILLEf LP FLEUR-LR FORME , L.R FOURH 
I, LR FRRI.SE - LE FRERE,LE FROMAGE, 
LE GRNT,LE GRRDE,LE GENOU,LR GEü 
METRIE ,LE GIGOT,LR GQRGE,LR GRRN 
D-MERE , LR GRENRDINE, GROSSIR, HRBI 
LLER,HABITER, L' HERBE 
150 DflTR HEUREUSEM6NTrHIER,L'HIV 
ER , L' HORRI.RE , L ' HOTEL , HUI T , IMPRES 
SIONNER,INDIQUER,S'INQUIETER,INT 
ERESSRNT r IRREGULIER, LR JRMBE, LE 
JARDIN,JEUNE,LA JOURNEE , L.R JUPE , 
LE LACrLR LRITUE , LR LANGUE , LE LE 
GUME, LIBRE,LA LIGNE , LE LIT,LONGT 
EMPSrLA LUNE,MRDRME 
140 DRTR LE MRGRSIN,LE MRGNETOPH 
ONE , LR MAIN,MRLRDE,MRLHEUREUSEME 
NT-LA SRLLE R , LE MARCHE,LE MRRI* 
LES MRTHFMRTIQUES -LR MRTIN,LE ME 
DECIN,L.R MIETTE,MINERRLE,LA MODE 
,LE MOIS-LR MONNflIE,LR MONTRGNE, 
MONTRER , LR MOTO, MOURIR-LE MOUTON 
-LR MUSIQUE -LR NRPPE 
170 DRTR NERNMOIS,NECESSAIRE,LA 
NEIGEtNETTOYER-LE NEZ-LE NOM-LE 
NGRD-OUEST ,NOUOERU,LR NUIT,L'ONC 
LE,L'OREILLE- OUBLI ER - OU I -DUURIR, 
LE PRIN-LE PRMPLEMOUSSE-LE PRNIE 
R-LE PRPIER-LE PRQUET,PRRCE QUE, 
PRRIER- LR PRRTIE - PRSSER-PRTINER, 
PRUVRE - LR PECHE,PEIGNER 
180 DRTR PENSER-LR PHRRMRCIE - L.R 
PH YSI QUE , L.E PIED-LE PIQUE-NIQUE, 
PLEUUOIR-LE POETE -LR POIRE-LE PO 
IBSON-LR POMMÈ» LR PORTE-POSER UN 
E QUESTIÜN , F'OUUOIR, PREMIER - LE PR 
IX - PROMENER - LE PROUERBE-LE PUPIT 
RE,QUATORZE,QURTRE,QUELQUEFOIS,Q 
UINZE-LE RRPPORT -RECEVOIR 
190 DRTR LE REERIGERATEUR,REGRET 
TER,REMPLRCER , LES RESEIGNEMENTS- 
REPRSSER, SE REPOSER-LE RETOUR-RE 
USSIR - REVE IL LER - RU REUOIR-LE RHU 
ME-RISQUER DE, LR ROBE,L.E ROSBXF, 
LR ROUTE-LR RUE,RU COIN DE LR-LE 
RYTHME, LR SR ISDN , LE SRUCISSON,L 
R BRUTERELLE,SCGLRIRE 
200 DRTR LE SERPENT,LA SERVIETTE 
-LE SINGE-LE SÜIR-LE SOMMEIL, LR 
SOUCOUPE-SOUVENT , LE STRGE , LE STY 
LO , LE SUD-OUEST , LR SUITE , SURTOUT 
- LE TRBLERU ,LE TRPIS-LR TRSSE-LE 


TEMPS,SE TERMINER,LE TIGRE, LR T 
OMRTE, LR TRANCHE, TRRDERSER ,TYPI Q 
UE-LES DRCRNCES, LR DRCHE 
210 DRTR LE DELO, UENDRE,LE UENT , 
LE DERRE, LR VIEILLESSE , LR VILLE, 
LR UITRINE-LA VOITURE,PARTIR EN, 
LE ZOO 

228 CLS: DlMA$ (30) : FORA- 1 TO14 ;BL$ 
=GL$+CHR$( 128) sNEXTfl:FQRR-201 T04 
89STEP32:PRINT0R,BLt;:NEXTR 
230 F'R INT0235 , CFIR* (159 ) +CHR$( 156 
)+CHR$(156) + CHR*(158)+CHR$(156 ) + 
CHR$(156)+CHR$ ( 157)+CHR*(156 ) ; 
240 PRINT@267» CHR$(159)+CHR$(128 
) +CHR$(150) ; 

250 PRINT0299 , CHRÍ(159 )+ CHR$ (150 
) ; :F0RR = 331T0491STEP32:: PRINTSR,C 
HR*< 159) í sNEXTR 

260 T=RND<307):FüRY=lTOT : RERDfl*: 
NEXTY 

270 B-LEN (R$): FORQ=lTOB : R$ <Q )=MI 
D$(fl$, Q, 1 ): NEXTQ 

280 F-RINT09Ó, "LETRAS USRDRS : " ; : F 
QRfl-lTOB: PRINT038+R, ; : NEXTR 
290 PRINTâí 60 ,"QUE LETRR?"; 

300 PRINT0172, " "; 

310 IK$ = TNKEYÍ 

320 B$=INKEY$sIFB$=""ORB$=CHR$a 
3)THEN320 

330 PRINTâl72,B*!:FORTI - 1TO40:NE 
XTTI 

340 FORQ=lTOB;IFB$=fl$(Q )THENPRIN 
T@ Q+38,B $ ? : S O UN D150,1 
350 NEXTQ 

360 FORQ = lTOB s IFB$OR$ (Q) THENNEX 
TQ : G==G+1 :S0UND5, 1 ;ON G GOSUB 400 
,410,420,430,440,450,460,470,480 
r 490 

370 PRINTGU+l 10 ,B$ f: W“W+1 
380 FORQ=lTOB:IFCHR$( PEEK (1062+Q 
) ) «Rí» ( Q ) ORPEEK (1062 + Q ) =64+RSC ( R$ 
(Q ))THENNEXTQ: FORT=1TO20 :PRINT01 
2- "CORRETO";:FORTT=l TOl0: NEXTTTs 
PRINT012, " " ; : SOUND150 -1 sF 

ORTT=1TO20: NEXTTT: NEXTTíRUN 
390 GOTO290 

400 PRINT0272,CHR$CÍ58)+CHR$( 159 
) +CHR$(157);:PRINT0304,CHR« <157 ) 
+CHR$(159) +CHR$(158) ;:RETURN 
410 PRINT 0336, CHR$(143)+CHR$ (143 
) +CHR$(143 )f sPRINT0368,CHR$( 143) 
+CHR$ (143)+CHR$(143);:PRINT0400, 
CHR$ (175)+CHRÍ(175 > +CHRÍ(175);:P 
RINT0432, CHRÍ»(172) +CHR$ (172) +CHR 
*(172); s RETURN 

420 PRINT0432 , CHR$ ( 175 ) ;:PRINT@4 

64,CHR$( 175); :RETURN 

430 PR INT0434 , CHR$ (175) ? :PRINT(14 
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66 ,CHR4(175 >;:RETURN 

440 F'RINT(ü335»CHR$( 142);:PRINT<33 

67 r CHR4(138);:RETURN 

450 PRINT(3339, CHR4( 141);: PRINTtèS 

71 * CHR4(133);:RETURN 

460 PRINT0399,CHR4(158)RETURN 

470 PRINT0403»CHRÍ»(157) ? :RETURN 

480 PRINT0495,CHR4 £ 177)+CHR4{183 

)RETURN 

490 PRINT0498,CHR4(187)+CHR4(178 

) í 

500 PRINTS0 »" fl PRLRVRR E' ";CHR 


PROGRAMA N 


10 * X- * X- * X- X- X X X X X* X X -X X- X -X X X X- X X X X X- X X X 

20 'x VERBOS/FRRNCES * 

30 '* CP 400 COLOR X 

40 '* CP-COMPUTRDORES FESSORIS x 

50 ' XX X X X X X-X X X- XX X X X X X-X X X XX X XX X X X 

60 CLS2:S0UND89,2:50UND89» 2:SOUN 
D133» 4:SOUND133» 4:S0UND147v 4 : SOU 
ND147,4:S0UND17Ó,Ó:S0UND159,2:SG 
UND133i4 : CLS 

70 PRINT"QUfiL E' O SEU NOME?":IN 
PUTNR4 

80 IPNR$= 1,n THENPRINT"E / NECESSRR 
IO UM NOME"SGOTO70 
90 R$(1)="PRIMEIRR PESSOA DO 5XN 
GULRR" 

100 R4(2)="5EGUNDfl PESSOR DO SIN 
GULRR" 

110 R4(3 )=“TERCEIRfl PESSOR DD SI 
NGULRR" 

120 R4 (4)=" PRIMEI RR PESSOR DO PL 
URAL” 

130 R$ ( 5)=“SEGUNDfl PESSOR DO PLU 
RRL" 

140 R$(6)="TERCEIRR FESSOR DO PL 
URRL" 

150 NV=50 
160 F0RX=1TQ15 

170 RESTOREsR=RND ( NU):C-RND(6) 
180 F0RB=1T0R:F0RD=1T07:RERDU$(D 
) :: NEXTD, 8: CLS: PR INTX: PRINT; PRINT 
TRB(8)V$(1 ):PRINT 
190 PRINTR4(C) 

200 INPUTF4:PRINT:IFF4=V4(C+l)TH 
ENPRINT"ESTR CORRETO» "íNRÍ;" !" 
sK=K+l ELSE SOUND10 »5s PRINT" JE R 
EGRETTE; VÜUS RMEZ TORT!"SPRINT: 
PRINTV4(2);TRB(15)V$(5):PRINTV*( 
3 ) ; TRE: ( 15 ) 0$ ( 6 ) : PRINTV4 (4 ) ; TRB ( 1 
5 ) V4 ( 7) 

210 PR INT: PRINT:PRINT"PRESSIONE 
QQ TECLH P/ CONTINURR" 


4(34)sfi$;CHR$<34)sS0UND89,8; SET ( 

33,17,2):S0UND89»8: RESET (33»17): 

S0UND89 »4:SET(3ó»17»2):S0UND89» 8 

:RESET(36»17):S0UND117»8:SET(33» 

17» 2):S0UND108» 4:RESET(33»17):S0 

UND108 » 8: SET <36»17»2):S0UND89»4: 

RESET(36»17):SÜUND89»8 

510 SET (36»17,2);S0UND78,4 sSET (3 

3»17» 2):S0UND89 » 8: RUN 

520 FORE=1TO307:RERDR4:NEXT:PR TN 

TR4 


? 2 — VERBOS 


220 J W4 = ; I NK EY4 :: IFJW4 = " "THEN220EL 

SECLS8 

230 NEXTX 

240 IF K<14 THEN GGTÜ290 
250 FQRQQ=1T02:S0UND89 » 4:S0UND10 
8 ,4:S0UND125 »4 :50UND89, 4 :NEXTQQ 
260 F0RQQ=1T02: S0UND125 » 4 s S0UND1 
33, 4 : S0UND147 ,8 sNEXTQQ 
270 FORQQ=1T02:SGUND147» 2:SOUND1 
59»2 s SQUND147,2:S0UND133 » 2 íSOUND 
125,4 : S0UND89,4:NEXTQQ 
280 FQRQÜjplT02 :S0UN089 ,4 s S0UND32 
»4 : S0UND89 » 8 :NEXTQQ 
290 PRINT"C'EST TÜUT ! " : PRINTK j " 
D' ENTRE 15 SQNT CORRECTS" 

300 END 

310 DRTRRCHETER»J'RCHETE»TU RCHE 
TESrlL RCHETE» NOUS RCHETONS ,VÜUS 
RCHETEZ »ILS RCHETENT 
320 DRTRRIDER,J'RIDE,TU RIDES,IL 
RIDE,NOUS RI DONS , VGUS RIDEZ,ILS 
RIDENT 

338 DRTRRNNONCER » J * RNNONCE » TU RN 
NONCES» IL RNNONCE,NOUS RNNONCONS 
,VOUS RNNONCEZrlLS rnnoncent 
340 DRTRRPPELER , J'RPPELLE, TU RPP 
ELLES »IL RPPELLE»NOUS RPPELONSyV 
OUS RPPELEZ»ILS RPPELLFNT 
350 DRTRRPPROCHER ,J ' RPPROCHE, TU 
RPPROCHES»IL RPPROCHE » NOUS RPPRO 
CHONS » VOUS RPPROCHEZ »ILS RPPROCH 
ENT 

360 DRTRflRRETER, JARRETE,TU RR RE 
TES »IL RRRETE » NOUS RRRETONS,VOUS 
RRRETEZ »ILS RRRETENT 
370 DRTRBRÜSSERrJE BROSSE»TU BRO 
SSES » IL BROSSE» NOUS BROSSONS,VOU 
S BROSSEZ » ILS BROSSENT • 

380 DRTRCRCHER,JE CRCHE,TU CRCHE 
S » IL CRCHE, NOUS CRCHONS,VOUS CRC 
HEZ , ILS CRCHENT 
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390 DRTRCASSER,JE CASSE,TU CRSSE 
5, IL CRSSE , NOUS CRSSQNS,VOUS CRS 
SEZ,ILS CRSSENT 

400 DRTRCHRNTER,JE CHRNTE,TU CHR 
NTES, IL CHRNTE,NOUS CHRNTONS,VÜU 
S CHRNTEZ,ILS CHRNTENT 
410 DRTRCHERCHER,JE CHERCHE, TU C 
HERCHES,IL CHERCHE,NOUS CHERCHON 
S,UOUS CHERCHEZ,ILS CHERCHENT 
420 DRTRCOMMRNDER,JE COMMRNDE,TU 
COMMRNDES,IL COMMRNDE,NOUS COMM 
RNDONS,UQUS COMMRNDEZ,ILS COMMRN 
DENT 

430 DRTRCOMMENCER,JE COMMENCE,TU 
COMMENCES,IL COMMENCE,NOUS COMM 
ENCONS, UOUS COMMENCEZ,ILS CQMMEN 
CENT 

440 DRTRCONNRITRE,JE CONNRIS,TU 
CONNRIS ,IL CONNRIT,NOUS CONNRISS 
CNS, UOUS CONNR ISSEZ,ILS CONNRISS 
ENT 

450 DRTRCOUCHER,JE COUCHE,TU COU 
CHES,IL COUCHE,NOUS COUCHONS,UÜU 
S COUCHEZ»ILS COUCHENT 
460 DRTRCROIRE,JE CROIS,TU CROIS 
»IL CROIT,NOUS CRGYONS, VOUS CROY 
EZ,ILS CROIENT 

478 DRTRDRNSER,JE DRNSE,TU DflNSE 

S , IL DRNSE,NOUS DRNSONS,UUUS DRN 
SEZ,ILS DRNSENT 

4S0 DRTRDESCENDRE,JE DESCENDS , TU 
DESCENDS,IL DESCEND,NOUS DESCEN 
DONS, UOUS DESCENDÈZ,ILS DESCENDE 
NT 

490 DRTRDEUENIR,JE DEUIENS,TU DE 
UIENS,IL DEUIENT,NOUS DEUENONS,U 
OUS DEUENEZ,ILS DEUIENNENT 
500 DRTRDIRE,JE DIS,TU DIS,rL Dl 

T, NDUS DISONS, VOUS DITES,ILS DIS 
ENT 

510 DATREMPRUNTER,J'EMPRUNTE,TU 
EMPRUNTES,IL EMPRUNTE,NOUS EMPRU 
NTONS, UOUS EMPRUNTEZ,ILS EMPRUNT 
ENT 

520 DflTRENDORMIR,J ' ENDORS,TU END 
QRS,IL ENDORT , NOUS ENDGRMÜNS,VOU 
S ENOORMEZ ,ILS ENDORMENT 
530 DRTRESPERER,J ' ESPERE,TU ESPE 
RES,IL ESPERE, NOUS ESPERONS,V0U8 
ESPERÉZ,ILS ESPERENT 
540 DRTRESSRYER,J'ESSRIE,TU ESSfl 
IES,IL ESSRIE,NOUS ESSRYÜNS, VOUS 
ESSAYEZ,ILS ESSRIENT 
550 DRTRESSUYER,J'ESSUIE,TU ESSU 
IES,IL ESSUIE,NQUS essuyons.vüus 
ESSUYEZ,ILS ESSUIENT 
560 DRTRHRBILLER,J / HR&ILLE,TU HR 
BIL LES,IL HABILLE, NOUS HRBILLON 


SrUOUS HRBILLEZ,ILS HRBILLENT 
570 DRTRINUITER,J / INUITE,TU INVI 
TES,IL INVITE»NOUS INVITONS, UOUS 
INUITEZ,ILS INUITENT 
580 DRTRJETER,JE JETTE,TU JETTES 
, IL JETTE,NOUS JETTONS,UOUS JETT 
EZ, ILS JETTENT 

590 DRTRLRISSER,JE LRISSE,TU LRI 
SSES,IL LRISSE,NOUS LRISSGNS,UOU 
S LRISSEZ,ILS LRISSENT 
600 DRTRLRUER,JE LRVE,TU LRUES,I 
L LRUE, NOUS LRUONS , UQUS LRUEZ, IL 
S LRUENT 

610 DRTRLIRE,JE LIS,TU LIS, IL L 
IT,NOUS LISONS,UQUS LISEZ,ILS LI 
SENT 

620 DRTRMRNGER,JE MRNGE,TU MRNGE 
S,IL MRNGE,NOUS MRNGEONS, UOUS MR 
NGEZ,ILS MRNGENT 

630 DRTRMONTER,JE MONTE,TU MONTE 
S,IL MONTE,NOUS MONTONS,UOUS MON 
TEZ,ILS MONTENT 

640 DflTfi MOURIR,JE MEURS.TU MEUR 
S,IL MEURT,NOUS MOURONS,UOUS MÜU 
REZ,ILS MEURENT 

650 DRTRNRGER,JE NRGE,TU NRGES,I 
L NRGE,NOUS NRGEÜN5,U0US NflGEZ,I 
LS NRGENT 

660 DRTRNRITRE,JE NAIS,TU NRIS.I 
L NRIT,NOUS NRISSONS, DOUS NRISSE 
Z,ILS NRISSENT 

670 DRTRNETTOYER,JE NETTQIE,TU N 
ETTOIES,IL NETTOIE ,NOUS NETTÜYON 
S,UOUS NETTOYEZ,ILS NETTOIENT 
680 DRTR QFFRIR,JE OFFRE,TU OFFR 
ES,IL OFFRE,NOUS OFFRONS,UGUS ÜF 
FREZ,ILS OFFRENT 

690 DRTRORGRNISER,JE ORGRNISE,TU 
ÜRGRNISES,IL ORGRNISE,NOUS ORGR 
NISONSrVÜUS ORGRNISEZ,ILS ORGRNI 
SENT 

700 DRTROUBLIER,J / OUBLIE,TU GUBL 
IES,IL OUBLIE,NOUS OUBLIUNS, UOUS 
OUBLIEZ,ILS OUBLIENT 
710 DRTRPRSSER,JE PRSSE,TU PRSSE 
S,IL PRSSE,NOUS PRSS0NS,V0U5 PRS 
SEZ,ILS PRSSENT 

720 DRÍRPEIGNER,JE PEIGNE,TU PEI 
GNES,IL PEIGNErNOUS PEIGNONS,UOU 
S PEIGNEZ,ILS PEI6NENT 
730 DRTRPERMETTRE,JE PERMETS,TU 
PERMETS,IL PERMET,NOUS PERMETTON 
S,UOUS PERMETTEZ,ILS PERMETTENT 
740 DRTRPREFERER,JE PREFERE,TU P 
REFERES, IL. PREFERE, NOUS PREFERON 
S,VOUS PREFEREZ,ILS PREFERENT 
750 DRTRPRETER,JE PRETE,TU PRETE 
S,IL PRETE,NOUS PRETQNS,UOUS PRE 
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TEZ .ILS PRETENT 

760 DRTR PRQMENER.JE PRQMENE.TU 
PROMENES.IL PR0MENE.N0U5 PROMENO 
NS.YOUS PRDMENEZ.ILS PROMENENT 
770 ORTRPRGMETTRE.JE PROMETS.TU 
PROHETS.IL PROMET.NOUS PROMETTON 
S.VOUS PRQMETTEZ.ILS PROMETTENT 


700 DRTRPRONONCER.JE PRONONCE.TU 

prononces.il prünonce.ngus pron 

ONCONS.YQUS PRONONCEZtILS PRONON 
CENT 

790 DRTRQUITTER,JE QUITTE.TU QUI 
TTES.IL QUITTE.NOUS QUITTONS.VOU 
S QUITTEZ . ILS 'QUITTENT 


PROGRAMA N? 3 — ANTÔNIMOS 


10 ' X X * -x- X X X X X X X X X X X X X X X X X X X X X X X X 

20 'x FRRNCE5 « 

30 '* CP 400 COLOR x 

40 "x CP-C0MPUTRD0RE5 PESSOAIS « 

50 ' XXXXXXXXXXX XX XXXXXXXXXXXXXXX 

60 CLS sRN=79:DIMRfl(RN):F0RR“1T01 
1sBL$=BL$+CHR$(128):NEXTR:FORR=0 
TO480STEP32: PRINT0R ,BL$; s NEXTRsF 
0RR=1T06:GB$=GB$+CHR$ (128)rNEXTA 
70 FGRR=1T0481STEP32; F’R INT0R . CHR 
$(255)j:PRINTQfi+7.CHR$(255);: NEX 
Tfl s F0RR=1T06: 0$-0$+CHR$ < 255 ):NEX 
TR;PRINT32,0$;:F0RR=386T0482STEP 
32:PRINT0 R.O$;íNEXTP 
80 PRINT<2388.CHR$(254) + CHR$ (253) 
f:PRINT0420.CHR$(242)+CHR$(241 )í 
90 Yl$sCHR$ <156)+CHR$(157)+CHR$( 
159)+CHR$(159)+CHR$(159)+ CHR$(15 
9)s Y2$=CHR$(128)+CHR$(128)+CHR$( 
128)+CHR$(156)+CHR$(157)+CHR$(15 
9):PRINT034.Y1$;:PRINT066.Y2$; 
100 PRINTOló."GUILHOTINR";SPRINT 
(?76. "DRR 0 RNTONIMO DE:"; 

110 PRINT0395." TOTRL DE 20 QUES 
TOES"; 

120 PRINTí3430. "CORRETRS" ; sPRINTS 
462."INCORRETAS"; 

130 P0 = 34 
140 FORJU) = 1TÜ20 
150 RESTORE 
160 R=RND(RN) 

170 IFRR(R)=1THEN160ELSERR(R)=1 

180 F0RC-1T0R:RERDR$,B$:NEXTC 

190 QNRND(2)GOTO200,220 

200 PRINT0139.R$; :PRINT^171? s 

INPUTRNÍ s IFRN$ = Ei$THENNC = NC+ 1ELSE 

PRINT0235."ERRRDO.0 CERTO E'; s 

FRXNTtí268.B$;:GOTO240 

210 S0UND150.2:GOTO250 

220 PRINT0139.B$;:PRINT^17i.: 

INPUTRN$ : IFAN$ = ft$THENNC = NC*+* 1 ELSE 

F'RINTtã235. "ERRRDO . 0 CERTO E'-";s 

PRINT0268.R$;:GÜTO240 

230 S0UND150.2:GOTO250 

240 SÜUND5.1:FORfi=34TO290STEP32: 

PR I NT0R , GB$ ; : PRINT(üA + 32. Yl$ ; :PRI 


NT(!»A+64,Y2$;:F0RTI=1TÜ5:NEXTTIsN 
EXTRsPRiNTG322,GB$;:PRINT0354.GB 
$;sFORTI = 1TO8005 NEXTTI:PRINT034. 
Yl$;:PRINTâóó.Y2$; 

250 U1D$=" "sF 

ORR=139TÜ2675TEP32:PRINT(3R.U0$;: 
NEXTR: PR INT(<Í440 . NC; : PR INT0472. JW 
-NC; s NEXTJW 

260 IFJU-NC=20THENPRINT03Ó6.CHR$ 

(34);"NENHUMR CERTR";CHR$(34);:F 

0RT=1 TO300:NEXTT:GOTO 280 

270 GOTO 290 

280 PR INT(?39ó. "TALDEZ 

" ; : PRINTS428. 11 NR PROXIMR UEZ 
!!!'*; s PRINT0459. " 

"? : FORT-1TQ500: NEXTT:END 
290 IF NC=20 THEN CLS ELSE320 


300 PRINTC1198. "P R R fl: B E N #: 
F0RT=1 T0100:NEXT s CLS s 0=0 + 1 
310 IF 0>3 THEN END ELSE 300 
320 PRINT0268. "XXX SEU PLRCRR XX 


*"sFORT-lTO300:NEXTT:END 


330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

MÓ0 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 


DRTR RBSENT.PRESENT 

ORTR RCCEPTÈR.REFUSER 

DRTR RCHETER.OENDRE 

DRTR RLLER.OENIR 

DRTR L'RMI.L' ENNEh.T 

ORTR RNCIEN.MÜDERNE 

DRTR RRRIOER .PARTIR 

DRTR L ' RUTOMNE . LE PRINTEMPS 

DRTR AORNT .RPRES 

DRTR ROEC.SRNS 

DRTR BRS.HRUT 

DRTR BEflU.LRID 

DRTR BERUCQUF'. PEU 

ORTR BIEN.MRL 

DRTR LE BRUIT.LE SILENCE 

DRTR CHRUD,FR01D 

DRTR CHER.BON MARCHE 

DRTR LE ODMMENCEMENT.LR FIN 

DRTR COMMENCER.FINIR 

DRTR COURT.LQNG 

DRTR DE80UT.ASSIS 

DRTR OEMRNDERj REPONDRE 

DRTR DEORNT.DERRJERE 

DRTR DROIT.6RUCHE 
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570 

DRTR 

EMPRUNTER t PRETEf.R 

840 

DRTR 

PfiRRITRErDISPRRRITRE 

580 

DRTR 

ENTRER,SORTIR 

850 

DRTR 

PRRESSEUX»TRRVRILLEUR 

590 

DRTR 

L ' E8T r L'OUEST 

868 

DRTR 

PRUVRE 7 RICHE 

600 

DRTR 

L'ETE A'H JVER 

870 

DRTR 

LE PLRNCHER,LE PLRFOND 

610 

DRTR 

FflCILEAIFFICILE 

880 

DRTR 

RLE IN »VIDE 

620 

•DRTR 

FERMER»QUVRIR 

890 

DRTR 

PLEURER r RIRE 

630 

DRTR 

FORT rFRIBLE 

900 

DRTR 

PLUS ? MOINS 

640 

DRTR 

LE GRRCQN > LR JEÜNE FTLL 

910 

DRTR 

POLI »IMPOLI 

E 



920 

DRTR 

POSSIBLE»IMPOSSIBLE 

650 

DRTR 

GRRND *PETIT 

930 

DRTR 

premi er,dernier 

660 

DRTR 

LR GUERRErLR PRIX 

940 

DRTR 

PRES DE AÜIN DE 

670 

DRTR 

HEUREUX,TRISTE 

950 

DRTR 

F'ROPRE j SRLE 

680 

DRTR 

HEIR,DEMRIN 

960 

DRTR 

QUELQUE CHOSE »RIEN 

690 

DRTR 

L'HOMME f LR FEMME 

970 

DRTR 

QUELQU'UM, PERSONNE 

700 

DRTR 

ICI,Lfl 

980 

DRTR 

LR QUESTIONAR REPONSE 

710 

DRTR 

LR JEUNESSE AR VIEILLES 

990 

DRTR 

REUSSIR » ECHOUER 

SE 



1000 

DRTR 

LE RQIAR REINE 

728 

DRTR 

JÜUER f TRRVRIL.LER 

1010 

DRTR 

S ' RfHJSER»S' ENNUYER 

730 

DRTR 

LE JOUR r LR NUIT 

1020 

DRTR 

LE SOLEILA.fi LUNE 

740 

DRTR 

LRRGE j ETROIT 

1030 

DRTR 

SÜUVENT»RRREMENT 

750 

DRTR 

LEGER r L.OURD 

1040 

DRTR 

SUR» SOUS 

760 

DRTR 

LE LENDEMRIN AR VEILLE 

1050 

DRTR 

UTILErINUTILE 

770 

DRTR 

LE MRRIAR FEMME 

1060 

DRTR 

LR VIEAR MORT 

780 

DRTR 

MIDI»MINUIT 

1070 

DRTR 

LR VILLE r L.fl CRMPRGNE 

790 

DRTR 

MGNTER 7 DESCENDRE 

1080 

DRTR 

VI TE i- LENTEMENT 

808 

DRTR 

NE,MORT 

1090 

DRTR 

VIVRErMOURIR 

810 

DRTR 

LE NORDAE SLJD 

1100 

DRTR 

VOICI,VOILR 

820 

DRTR 

OBEIRí DESOBEIR 

1110 

DRTR 

VRRI»FRUX 

830 

DRTR 

OTER-METTRE 





EDUCACIONAL 

Trinômio do 2 ? GRAU 


CP 200 — 16 Kb RAM 


PARTE II 


No número anterior, publicamos a 
primeira parte cio programa Trinômio 
do 2 ? Grau — um eficiente instrumen¬ 
to para a introdução à informática no 


setor educacional. Agora, você pode¬ 
rá completar sua listagem em Basic e 
transformar seu CP 200 num eficien¬ 
te professor de matemática. 


560 PRINT PT 21,4; 
R CS/N)? ” 

570 INPUT R% 

550 IF R$=“S" THEN 
590 STOP 
600 CLS 

610 PRINT PT 6,4;" 
FRTGRRR " 

620 PRINT PT 8,9;” 
630 PRINT PT 10,4; 

NEGRTIVO *• 

640 RETURN 


DESEJR CONTINUP 

BOTO 140 

NPO E POSSÍVEL 

ESTE TRINOMIO " 
POIS O DELTP E 


650 

PRINT RT 

19 

(X"; 

-X2; ">" 


660 

RETURN 


670 

PRINT RT 

19 

(X+" 

;-X2;")" 


630 

RETURN 


690 

PRINT RT 

19 

. (X 11 

;~X2; ">" 


700 

RETURN 


710 

PRINT RT 

19 

.í X + ";-X2;“) 

tt 

720 

RETURN 



16; R; - ( X " ; —X1; " > * 

16 ;p;"-(X";-xl;")* 

16; R;".(X+";-xi;"í 

16;R; 11 - ( x+" ;-xi; ■' > 


B 
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